(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    450291,      10228]
NotebookOptionsPosition[    447101,      10122]
NotebookOutlinePosition[    447464,      10138]
CellTagsIndexPosition[    447421,      10135]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Polytomous Rasch Test Vectors", "Subsubsection",
 CellChangeTimes->{{3.505489349887044*^9, 3.5054893545746307`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "polytomousrasch", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"polytomousrasch", "[", 
    RowBox[{"0", ",", " ", "\[Beta]_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=",
    " ", 
   RowBox[{"1", " ", "/", " ", 
    RowBox[{"(", 
     RowBox[{"1", " ", "+", " ", 
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{"\[Beta]", " ", "-", " ", 
            RowBox[{"\[Tau]", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ",", " ", 
           RowBox[{"{", " ", 
            RowBox[{"k", ",", " ", "1", ",", " ", "y"}], " ", "}"}]}], "]"}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"y", ",", " ", "1", ",", " ", 
          RowBox[{"Length", "[", "\[Tau]", "]"}]}], "}"}]}], "]"}]}], 
     ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"polytomousrasch", "[", 
   RowBox[{"x_", ",", " ", "\[Beta]_", ",", " ", "\[Tau]_"}], " ", "]"}], " ",
   ":=", " ", 
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"\[Beta]", " ", "-", " ", 
       RowBox[{"\[Tau]", "[", 
        RowBox[{"[", "k", "]"}], "]"}]}], ",", " ", 
      RowBox[{"{", " ", 
       RowBox[{"k", ",", " ", "1", ",", " ", "x"}], " ", "}"}]}], "]"}], 
    "]"}], " ", "/", " ", 
   RowBox[{"(", 
    RowBox[{"1", " ", "+", " ", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{"\[Beta]", " ", "-", " ", 
           RowBox[{"\[Tau]", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"k", ",", " ", "1", ",", " ", "y"}], " ", "}"}]}], "]"}], 
        "]"}], ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{"y", ",", " ", "1", ",", " ", 
         RowBox[{"Length", "[", "\[Tau]", "]"}]}], "}"}]}], "]"}]}], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "dlogprdbeta", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dlogprdbeta", "[", 
    RowBox[{"0", ",", " ", "\[Beta]_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=",
    " ", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"polytomousrasch", "[", 
        RowBox[{"0", ",", " ", "z", ",", " ", "\[Tau]"}], "]"}], "]"}], ",", 
      " ", "z"}], "]"}], " ", "/.", " ", 
    RowBox[{"z", " ", "\[Rule]", " ", "\[Beta]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dlogprdbeta", "[", 
    RowBox[{"x_", ",", " ", "\[Beta]_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=",
    " ", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"polytomousrasch", "[", 
        RowBox[{"x", ",", " ", "z", ",", " ", "\[Tau]"}], "]"}], "]"}], ",", 
      " ", "z"}], "]"}], " ", "/.", " ", 
    RowBox[{"z", " ", "\[Rule]", " ", "\[Beta]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "makevararray", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"makevararray", "[", 
    RowBox[{"s_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ToExpression", "[", 
      RowBox[{"s", " ", "<>", " ", 
       RowBox[{"ToString", "[", "i", "]"}]}], "]"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"i", ",", " ", "1", ",", " ", "n"}], " ", "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "dlogprdtau", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dlogprdtau", "[", 
    RowBox[{"0", ",", " ", "\[Beta]_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=",
    " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "tmp", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"tmp", " ", "=", " ", 
       RowBox[{"makevararray", "[", 
        RowBox[{"\"\<\[Tau]\>\"", ",", " ", 
         RowBox[{"Length", "[", "\[Tau]", "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"polytomousrasch", "[", 
           RowBox[{"0", ",", " ", "\[Beta]", ",", " ", "tmp"}], "]"}], "]"}], 
         ",", " ", 
         RowBox[{"{", " ", "tmp", " ", "}"}]}], "]"}], " ", "/.", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"ToExpression", "[", 
           RowBox[{
            RowBox[{"ToString", "[", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "<>", " ", 
            "\"\< -> \>\"", " ", "<>", " ", 
            RowBox[{"ToString", "[", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], "&"}], " ", "/@", 
         RowBox[{"Transpose", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"makevararray", "[", 
             RowBox[{"\"\<\[Tau]\>\"", ",", " ", 
              RowBox[{"Length", "[", "\[Tau]", "]"}]}], "]"}], ",", " ", 
            "\[Tau]"}], " ", "}"}], "]"}]}], ")"}]}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dlogprdtau", "[", 
    RowBox[{"x_", ",", " ", "\[Beta]_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=",
    " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "tmp", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"tmp", " ", "=", " ", 
       RowBox[{"makevararray", "[", 
        RowBox[{"\"\<\[Tau]\>\"", ",", " ", 
         RowBox[{"Length", "[", "\[Tau]", "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"polytomousrasch", "[", 
           RowBox[{"x", ",", " ", "\[Beta]", ",", " ", "tmp"}], "]"}], "]"}], 
         ",", " ", 
         RowBox[{"{", " ", "tmp", " ", "}"}]}], "]"}], " ", "/.", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"ToExpression", "[", 
           RowBox[{
            RowBox[{"ToString", "[", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "<>", " ", 
            "\"\< -> \>\"", " ", "<>", " ", 
            RowBox[{"ToString", "[", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], "&"}], " ", "/@", 
         RowBox[{"Transpose", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"makevararray", "[", 
             RowBox[{"\"\<\[Tau]\>\"", ",", " ", 
              RowBox[{"Length", "[", "\[Tau]", "]"}]}], "]"}], ",", " ", 
            "\[Tau]"}], " ", "}"}], "]"}]}], ")"}]}]}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.505488725549403*^9, 3.505488869449727*^9}, {
  3.5055102974910583`*^9, 3.505510303584429*^9}, {3.505653463793923*^9, 
  3.5056535375189753`*^9}, {3.5056537149355173`*^9, 3.505653717407421*^9}, {
  3.505653802283821*^9, 3.5056538395393963`*^9}, {3.505661010284649*^9, 
  3.5056610857529287`*^9}, {3.505662012685985*^9, 3.5056621467797737`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{"#", ",", " ", 
     RowBox[{"Log", "[", 
      RowBox[{"polytomousrasch", "[", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
        RowBox[{"#", "[", 
         RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], " ", "}"}], "&"}], 
  " ", "/@", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"Random", "[", 
       RowBox[{"Integer", ",", " ", "5"}], "]"}], ",", " ", 
      RowBox[{"Random", "[", 
       RowBox[{"Real", ",", " ", "5"}], "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", 
         RowBox[{"Real", ",", " ", "5"}], "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "5"}], " ", "}"}]}], "]"}]}], 
     " ", "}"}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{"foo", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.5054890146140127`*^9, 3.505489111203616*^9}, {
  3.505489152470233*^9, 3.505489160385252*^9}, {3.505489233064039*^9, 
  3.505489254376178*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "1.9783459806490984`", ",", 
       RowBox[{"{", 
        RowBox[{
        "1.384486436816815`", ",", "4.359645192018188`", ",", 
         "0.48418222500866276`", ",", "4.139990652962703`", ",", 
         "4.014889486515287`"}], "}"}]}], "}"}], ",", 
     RowBox[{"-", "1.340575816599487`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"5", ",", "0.5745054881105434`", ",", 
       RowBox[{"{", 
        RowBox[{
        "4.490381939424205`", ",", "0.9165756592852025`", ",", 
         "0.6213879885383842`", ",", "3.856310391427468`", ",", 
         "2.7562158477321574`"}], "}"}]}], "}"}], ",", 
     RowBox[{"-", "9.815363480819462`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", "1.658567514160765`", ",", 
       RowBox[{"{", 
        RowBox[{
        "1.720312236339499`", ",", "1.4405490317154703`", ",", 
         "1.0694804421320139`", ",", "0.6473672212113271`", ",", 
         "1.6980187120557613`"}], "}"}]}], "}"}], ",", 
     RowBox[{"-", "2.0626774548905895`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "1.1426847021053737`", ",", 
       RowBox[{"{", 
        RowBox[{
        "3.8212763638198624`", ",", "4.0350234147298885`", ",", 
         "1.2630714724973091`", ",", "4.262996996038517`", ",", 
         "0.47144456385338906`"}], "}"}]}], "}"}], ",", 
     RowBox[{"-", "0.07351286008320472`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "2.0566774340807896`", ",", 
       RowBox[{"{", 
        RowBox[{
        "4.878585035680494`", ",", "4.90335180402033`", ",", 
         "4.987262338844726`", ",", "2.916686781118087`", ",", 
         "0.8636955491652075`"}], "}"}]}], "}"}], ",", 
     RowBox[{"-", "2.8834394789095885`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "4.328846315909786`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.49688039942052115`", ",", "2.000111121832884`", ",", 
         "0.2423075606268234`", ",", "0.4725359244823186`", ",", 
         "2.7406645516883636`"}], "}"}]}], "}"}], ",", 
     RowBox[{"-", "15.881274572669398`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0.3415436076721192`", ",", 
       RowBox[{"{", 
        RowBox[{
        "3.521995324287324`", ",", "4.031986892766849`", ",", 
         "1.67118410955635`", ",", "4.694176386460792`", ",", 
         "1.8239766122315633`"}], "}"}]}], "}"}], ",", 
     RowBox[{"-", "3.22244096416452`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "2.889302190661475`", ",", 
       RowBox[{"{", 
        RowBox[{
        "2.849907745736488`", ",", "0.6591529717309041`", ",", 
         "0.5609051397342537`", ",", "3.626305194622957`", ",", 
         "2.378463181883099`"}], "}"}]}], "}"}], ",", 
     RowBox[{"-", "5.431568236025414`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "3.6024755376501143`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6823201040537596`", ",", "3.7229533906026275`", ",", 
         "2.3912008430383724`", ",", "0.6857887565320278`", ",", 
         "4.818624554888552`"}], "}"}]}], "}"}], ",", 
     RowBox[{"-", "7.253885657714398`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", "4.394107074692841`", ",", 
       RowBox[{"{", 
        RowBox[{
        "1.8943204436178516`", ",", "3.685677634699143`", ",", 
         "4.576316994261729`", ",", "3.921571150210523`", ",", 
         "4.153655891929487`"}], "}"}]}], "}"}], ",", 
     RowBox[{"-", "1.8692361677067222`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.505489084294889*^9, 3.5054891185307817`*^9, 3.505489160954356*^9, {
   3.5054892360693483`*^9, 3.505489254886271*^9}, 3.522541927463004*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{"#", ",", " ", 
     RowBox[{"dlogprdbeta", "[", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], " ", "}"}], "&"}], " ", "/@",
   " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"Random", "[", 
       RowBox[{"Integer", ",", " ", "5"}], "]"}], ",", " ", 
      RowBox[{"Random", "[", 
       RowBox[{"Real", ",", " ", "5"}], "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", 
         RowBox[{"Real", ",", " ", "5"}], "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "5"}], " ", "}"}]}], "]"}]}], 
     " ", "}"}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{"foo", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.505654179574717*^9, 3.505654184316519*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "3.344134027027024`", ",", 
       RowBox[{"{", 
        RowBox[{
        "1.0543216699744042`", ",", "4.8895842574436745`", ",", 
         "2.4824717823731377`", ",", "3.649957640566232`", ",", 
         "4.230345057742841`"}], "}"}]}], "}"}], ",", 
     RowBox[{"-", "0.21554026189145273`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "2.000282066782199`", ",", 
       RowBox[{"{", 
        RowBox[{
        "4.63256403663665`", ",", "2.990804668835328`", ",", 
         "3.6694399180085875`", ",", "3.3739768721592425`", ",", 
         "2.254100854753551`"}], "}"}]}], "}"}], ",", 
     RowBox[{"-", "0.13605242147058624`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", "4.3883291311852135`", ",", 
       RowBox[{"{", 
        RowBox[{
        "2.987119813954828`", ",", "4.6510234815566145`", ",", 
         "4.862900011715178`", ",", "3.7025403746531858`", ",", 
         "3.1684952590662756`"}], "}"}]}], "}"}], ",", 
     RowBox[{"-", "0.5818662715705033`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0.25691640686377337`", ",", 
       RowBox[{"{", 
        RowBox[{
        "2.968579568097327`", ",", "0.0168627399540423`", ",", 
         "3.5921782648045477`", ",", "1.3353452566532509`", ",", 
         "3.814923676167839`"}], "}"}]}], "}"}], ",", "0.7847660819833386`"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", "1.672728712927018`", ",", 
       RowBox[{"{", 
        RowBox[{
        "2.537856594830143`", ",", "1.4457609992095768`", ",", 
         "1.3324518937947016`", ",", "3.022771072360786`", ",", 
         "3.3075115370873016`"}], "}"}]}], "}"}], ",", 
     "1.4042727127731656`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "4.445478932427378`", ",", 
       RowBox[{"{", 
        RowBox[{
        "1.699887857158052`", ",", "0.031966403525457814`", ",", 
         "4.638071619078714`", ",", "1.0715020602681355`", ",", 
         "4.445787002404501`"}], "}"}]}], "}"}], ",", 
     RowBox[{"-", "3.424248893124448`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"5", ",", "0.6436372723402444`", ",", 
       RowBox[{"{", 
        RowBox[{
        "1.6509518051238863`", ",", "1.420478578711521`", ",", 
         "4.582886990689323`", ",", "1.9410968976870584`", ",", 
         "3.4824565460576102`"}], "}"}]}], "}"}], ",", "4.53509965553765`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1.1635621718477476`", ",", 
       RowBox[{"{", 
        RowBox[{
        "1.614307422591996`", ",", "1.9242341577330162`", ",", 
         "4.890278281253063`", ",", "4.828216915194497`", ",", 
         "2.799383746424157`"}], "}"}]}], "}"}], ",", 
     "0.35380210053873146`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "0.25150544480599824`", ",", 
       RowBox[{"{", 
        RowBox[{
        "2.3524216864229204`", ",", "3.38245591598492`", ",", 
         "1.4669318526294552`", ",", "2.2287343724452127`", ",", 
         "4.044910149335619`"}], "}"}]}], "}"}], ",", "1.8772124507891315`"}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"4", ",", "3.9369769835575426`", ",", 
       RowBox[{"{", 
        RowBox[{
        "4.767043995471403`", ",", "2.1967679689197546`", ",", 
         "4.406838530256905`", ",", "2.8654749232894074`", ",", 
         "0.32125699306690236`"}], "}"}]}], "}"}], ",", 
     RowBox[{"-", "0.8777229073239571`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.505654185986607*^9, 3.522541927515088*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{"#", ",", " ", 
     RowBox[{"dlogprdtau", "[", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], " ", "}"}], "&"}], " ", "/@",
   " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"Random", "[", 
       RowBox[{"Integer", ",", " ", "5"}], "]"}], ",", " ", 
      RowBox[{"Random", "[", 
       RowBox[{"Real", ",", " ", "5"}], "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", 
         RowBox[{"Real", ",", " ", "5"}], "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "5"}], " ", "}"}]}], "]"}]}], 
     " ", "}"}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{"foo", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.505654179574717*^9, 3.505654184316519*^9}, {
   3.505662277496086*^9, 3.5056622837923813`*^9}, 3.505662454028873*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"4", ",", "1.5531306965795102`", ",", 
       RowBox[{"{", 
        RowBox[{
        "2.7558867251330184`", ",", "1.444996344577886`", ",", 
         "0.7383700023775797`", ",", "4.612033798892451`", ",", 
         "4.273430179075407`"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.4117379950475194`"}], ",", 
       RowBox[{"-", "0.5354093778753589`"}], ",", 
       RowBox[{"-", "0.6732032110894011`"}], ",", 
       RowBox[{"-", "0.9844292005304943`"}], ",", "0.0009620591878325341`"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0.28143417273013843`", ",", 
       RowBox[{"{", 
        RowBox[{
        "4.124062579785584`", ",", "2.687799641159436`", ",", 
         "4.383151897822344`", ",", "0.4532172575356417`", ",", 
         "1.324678833361427`"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.02290125828199249`", ",", "0.00195496108637584`", ",", 
       "0.00006681383378722306`", ",", "0.00003557582729238861`", ",", 
       "9.268363769096929`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"4", ",", "2.4362941963534372`", ",", 
       RowBox[{"{", 
        RowBox[{
        "2.0307302113994243`", ",", "2.0707613415507216`", ",", 
         "4.857746980731972`", ",", "0.20755982390822492`", ",", 
         "2.985820062063806`"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.13043451135904224`"}], ",", 
       RowBox[{"-", "0.3261056661484195`"}], ",", 
       RowBox[{"-", "0.6081233181826484`"}], ",", 
       RowBox[{"-", "0.6331643026487658`"}], ",", "0.13425248640236132`"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", "3.133784357993179`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.09070298526056841`", ",", "3.0107918549884705`", ",", 
         "3.5789815318069014`", ",", "0.2683094347037721`", ",", 
         "4.769445992193666`"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.0026342790426883197`"}], ",", 
       RowBox[{"-", "0.05787447602445684`"}], ",", 
       RowBox[{"-", "0.12034440174446799`"}], ",", "0.8396311845548643`", ",",
        "0.13690665269931623`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1.4576611584089603`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8230948066738831`", ",", "3.823313090125886`", ",", 
         "4.031075989816086`", ",", "1.8456273595165085`", ",", 
         "1.5496646275984753`"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.32317211086913067`"}], ",", "0.06725947392429392`", 
       ",", "0.010028093938241183`", ",", "0.005662808814849715`", ",", 
       "0.0027012532293512787`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"5", ",", "3.5418789173957475`", ",", 
       RowBox[{"{", 
        RowBox[{
        "4.907013410030502`", ",", "4.157827718357073`", ",", 
         "2.1665127297761306`", ",", "3.0886616598601058`", ",", 
         "3.5823345766690755`"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.2760872854568939`"}], ",", 
       RowBox[{"-", "0.3465854013662619`"}], ",", 
       RowBox[{"-", "0.3846633333830633`"}], ",", 
       RowBox[{"-", "0.5353200455906534`"}], ",", 
       RowBox[{"-", "0.7723585839338032`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"4", ",", "1.7215335220036356`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.1357825183767063`", ",", "1.0179003183093842`", ",", 
         "3.7245875959371038`", ",", "1.5139736980954108`", ",", 
         "2.1499624563129007`"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.05053139988790047`"}], ",", 
       RowBox[{"-", "0.2972739399350593`"}], ",", 
       RowBox[{"-", "0.7959611008044576`"}], ",", 
       RowBox[{"-", "0.8632451022911677`"}], ",", "0.05395009933977506`"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "2.884115960316205`", ",", 
       RowBox[{"{", 
        RowBox[{
        "3.6338846106765352`", ",", "3.5031818431069404`", ",", 
         "3.5709809245059994`", ",", "2.6158065256124328`", ",", 
         "3.864438618482869`"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.5204043868053156`", ",", "0.2938059983711369`", ",", 
       "0.171794511260683`", ",", "0.11040425331037053`", ",", 
       "0.03012131551854629`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "2.0455206846979803`", ",", 
       RowBox[{"{", 
        RowBox[{
        "2.7478861178321163`", ",", "3.7924934354865467`", ",", 
         "4.833362628666783`", ",", "0.1998933251814719`", ",", 
         "1.1982214902336408`"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.5884899148438055`"}], ",", "0.11996622031548071`", ",",
        "0.06914971757653857`", ",", "0.06602175504690605`", ",", 
       "0.04621526769066253`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "0.2506145180907994`", ",", 
       RowBox[{"{", 
        RowBox[{
        "4.926349218636281`", ",", "1.042065606824399`", ",", 
         "4.03170876045751`", ",", "2.1619528582306935`", ",", 
         "1.3440146419672048`"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.9865269695927631`"}], ",", 
       RowBox[{"-", "0.9957200877875827`"}], ",", "0.00011373158283743386`", 
       ",", "0.000018752233078995014`", ",", "4.706424702178166`*^-6"}], 
      "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5056622843812428`*^9, 3.505662454462144*^9, 
  3.52254192756012*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Estep Test Vectors", "Subsubsection",
 CellChangeTimes->{{3.50558908641247*^9, 3.505589088601829*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "clampprior", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"clampprior", "[", 
    RowBox[{"c_", ",", " ", "priorz_"}], "]"}], " ", ":=", " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"c", " ", "<", " ", "0"}], ",", " ", 
     RowBox[{"Log", " ", "/@", " ", "priorz"}], ",", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"i", " ", "\[Equal]", " ", 
          RowBox[{"c", " ", "+", " ", "1"}]}], ",", " ", 
         RowBox[{"Log", "[", "0.99999", "]"}], ",", " ", 
         RowBox[{
          RowBox[{"Log", "[", "0.00001", "]"}], " ", "-", " ", 
          RowBox[{"Log", "[", 
           RowBox[{
            RowBox[{"Length", "[", "priorz", "]"}], " ", "-", " ", "1"}], 
           "]"}]}]}], "]"}], ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{"i", ",", " ", "1", ",", " ", 
         RowBox[{"Length", "[", "priorz", "]"}]}], " ", "}"}]}], "]"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "estep", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"estep", "[", 
    RowBox[{
    "priorz_", ",", " ", "d_", ",", " ", "log\[Alpha]_", ",", " ", "\[Tau]_", 
     ",", " ", "log\[Lambda]_", ",", "clamp_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "  ", 
      RowBox[{
       RowBox[{"logz", " ", "=", " ", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"clampprior", "[", 
           RowBox[{
            RowBox[{"clamp", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", " ", "priorz"}], "]"}], ",",
           " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", 
            RowBox[{"Length", "[", "log\[Alpha]", "]"}]}], " ", "}"}]}], 
         "]"}]}], ",", "\[IndentingNewLine]", "              ", "x", ",", " ",
        "y", ",", "\[IndentingNewLine]", "              ", "worker", ",", 
       "\[IndentingNewLine]", "              ", "image", ",", 
       "\[IndentingNewLine]", "              ", "rating"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"x", " ", "=", " ", "1"}], ",", " ", 
        RowBox[{"x", " ", "\[LessEqual]", " ", 
         RowBox[{"Length", "[", "d", "]"}]}], ",", " ", 
        RowBox[{"++", "x"}], ",", " ", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"worker", " ", "=", " ", 
          RowBox[{
           RowBox[{"d", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"image", " ", "=", " ", 
          RowBox[{
           RowBox[{"d", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"rating", " ", "=", " ", 
          RowBox[{
           RowBox[{"d", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"y", " ", "=", " ", "1"}], ",", " ", 
           RowBox[{"y", " ", "\[LessEqual]", " ", 
            RowBox[{"Length", "[", "priorz", "]"}]}], ",", " ", 
           RowBox[{"++", "y"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"logz", "[", 
              RowBox[{"[", "image", "]"}], "]"}], "[", 
             RowBox[{"[", "y", "]"}], "]"}], " ", "+=", " ", 
            RowBox[{"Log", "[", 
             RowBox[{"polytomousrasch", "[", 
              RowBox[{"rating", ",", 
               RowBox[{
                RowBox[{"Exp", "[", 
                 RowBox[{"log\[Alpha]", "[", 
                  RowBox[{"[", "image", "]"}], "]"}], "]"}], " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{"log\[Lambda]", "[", 
                  RowBox[{"[", "worker", "]"}], "]"}], "]"}], 
                RowBox[{"(", 
                 RowBox[{"y", " ", "-", " ", "1"}], ")"}]}], ",", " ", 
               RowBox[{
                RowBox[{"Exp", "[", 
                 RowBox[{"log\[Alpha]", "[", 
                  RowBox[{"[", "image", "]"}], "]"}], "]"}], " ", 
                RowBox[{"Exp", "[", 
                 RowBox[{"log\[Lambda]", "[", 
                  RowBox[{"[", "worker", "]"}], "]"}], "]"}], 
                RowBox[{"\[Tau]", "[", 
                 RowBox[{"[", "worker", "]"}], "]"}]}]}], "]"}], "]"}]}]}], 
          "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}],
       ";", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Exp", "[", "#", "]"}], " ", "/", " ", 
            RowBox[{"Plus", " ", "@@", " ", 
             RowBox[{"Exp", "[", "#", "]"}]}]}], ")"}], "&"}], " ", "[", 
         RowBox[{"logz", "[", 
          RowBox[{"[", "x", "]"}], "]"}], "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"x", ",", " ", "1", ",", 
          RowBox[{"Length", "[", "log\[Alpha]", "]"}]}], " ", "}"}]}], " ", 
       "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5038780302705717`*^9, 3.503878042326191*^9}, {
   3.5038781228196983`*^9, 3.503878129332018*^9}, 3.503878289331173*^9, {
   3.503878350253797*^9, 3.503878401609202*^9}, {3.5038784587040367`*^9, 
   3.503878488329413*^9}, {3.50387851942234*^9, 3.503878595931801*^9}, {
   3.503878640227378*^9, 3.503879033343948*^9}, {3.503879112202117*^9, 
   3.50387911869127*^9}, {3.5038791566628447`*^9, 3.503879159147975*^9}, {
   3.503879297552186*^9, 3.503879313887672*^9}, {3.503884047572659*^9, 
   3.503884078622177*^9}, {3.503886247537553*^9, 3.503886306024638*^9}, {
   3.5038884861001472`*^9, 3.503888488761354*^9}, {3.503926784088834*^9, 
   3.5039267852074823`*^9}, {3.503927245713265*^9, 3.503927282239608*^9}, 
   3.503929008697138*^9, {3.504203017089119*^9, 3.5042032651017733`*^9}, {
   3.504203606921994*^9, 3.504203638621933*^9}, {3.504203995312714*^9, 
   3.5042040758582563`*^9}, {3.504204109221225*^9, 3.504204111209959*^9}, {
   3.504204180167572*^9, 3.504204223006308*^9}, {3.505510327448872*^9, 
   3.505510402702722*^9}, {3.505510601100595*^9, 3.505510603130179*^9}, 
   3.50551065455529*^9, {3.505510689668107*^9, 3.505510719483232*^9}, {
   3.5055890383382998`*^9, 3.5055890572416773`*^9}, {3.505589274706297*^9, 
   3.505589315152225*^9}, {3.505594583055437*^9, 3.505594595393096*^9}, 
   3.505594632871646*^9, {3.5055946867106457`*^9, 3.505594687539032*^9}, {
   3.5056948881191998`*^9, 3.505694898758212*^9}, {3.5057484038481207`*^9, 
   3.505748435585724*^9}, {3.50594166163002*^9, 3.505941716561488*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nworkers", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nworkers", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nimages", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nimages", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nratings", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nratings", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"#", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
     RowBox[{"Flatten", "[", 
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], "&"}], " ", "/@", 
  "\[IndentingNewLine]", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"!", " ", 
               RowBox[{"ListQ", "[", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
              RowBox[{"!", " ", 
               RowBox[{"IntegerQ", "[", 
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
           RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
        " ", "/@", " ", "#"}], ",", " ", 
       RowBox[{"estep", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"1", "+", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], ",", 
             RowBox[{"1", "+", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], ",", 
             RowBox[{"#", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "&"}], " ", "/@", " ", 
          
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "4", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "5", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], " ", "}"}], "&"}], " ", "/@",
     " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Random", "[", 
             RowBox[{"Integer", ",", " ", 
              RowBox[{"nworkers", " ", "-", " ", "1"}]}], "]"}], ",", 
            RowBox[{"Random", "[", 
             RowBox[{"Integer", ",", " ", 
              RowBox[{"nimages", " ", "-", " ", "1"}]}], "]"}], ",", 
            RowBox[{"Random", "[", 
             RowBox[{"Integer", ",", " ", 
              RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], "}"}], ",", 
          " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nratings"}], " ", "}"}]}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nimages"}], " ", "}"}]}], 
         "]"}], ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Random", "[", "]"}], ",", 
            RowBox[{"{", " ", 
             RowBox[{"j", ",", " ", "1", ",", " ", 
              RowBox[{"nlabels", " ", "-", " ", "1"}]}], "}"}]}], "]"}], ",", 
          " ", 
          RowBox[{"{", " ", 
           RowBox[{"k", ",", " ", "1", ",", " ", "nworkers"}], "}"}]}], "]"}],
         ",", "\[IndentingNewLine]", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nworkers"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Random", "[", "]"}], " ", "<", " ", "0.5"}], ",", " ", 
            RowBox[{"-", "1"}], ",", " ", 
            RowBox[{"Random", "[", 
             RowBox[{"Integer", ",", " ", 
              RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], "]"}], ",", 
          " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nimages"}], "}"}]}], 
         "]"}]}], "}"}], ",", " ", 
      RowBox[{"{", " ", 
       RowBox[{"foo", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], "]"}]}], 
   ")"}]}]}], "Input",
 CellChangeTimes->{{3.504016424813343*^9, 3.504016580297758*^9}, {
   3.504018269599441*^9, 3.504018279219314*^9}, {3.504018359153508*^9, 
   3.504018387475568*^9}, {3.5040184327040863`*^9, 3.504018509500141*^9}, {
   3.504018861653284*^9, 3.504018920277594*^9}, {3.504019049785894*^9, 
   3.504019065803638*^9}, 3.504019184180941*^9, {3.504059801963703*^9, 
   3.504059813764331*^9}, 3.5040599982883453`*^9, {3.504060100407703*^9, 
   3.504060104803857*^9}, 3.504060440796597*^9, {3.504060503267675*^9, 
   3.504060525182757*^9}, {3.50418590618461*^9, 3.504185912579707*^9}, {
   3.504186397115213*^9, 3.5041864627493553`*^9}, {3.504187243434793*^9, 
   3.504187335384948*^9}, {3.5041877893781147`*^9, 3.504187789468603*^9}, {
   3.5042036666855288`*^9, 3.504203720287292*^9}, {3.504203761143361*^9, 
   3.5042038785987473`*^9}, 3.504204172101022*^9, {3.504204669966267*^9, 
   3.504204721532045*^9}, {3.504205201368525*^9, 3.50420520145702*^9}, {
   3.505589135463067*^9, 3.505589138197913*^9}, {3.505589410144479*^9, 
   3.505589470226988*^9}, {3.50558950031635*^9, 3.5055895318620234`*^9}, {
   3.505593036660348*^9, 3.5055930431613007`*^9}, 3.505593571277896*^9, {
   3.5055946005056257`*^9, 3.505594637819249*^9}, {3.505594708646364*^9, 
   3.5055947672213717`*^9}, 3.505594822362433*^9, 3.505694904993847*^9, 
   3.50569495400416*^9, {3.5057484466063337`*^9, 3.505748464550887*^9}, 
   3.505759963261848*^9, {3.50594173038643*^9, 3.505941756411881*^9}, 
   3.5059418679837847`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.8641064169641527`", ",", "0.7791852484161608`", ",", 
         "0.22881050798426184`", ",", "0.5238854092060202`", ",", 
         "0.5613116773450705`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.34919275715358067`", ",", "0.6519873159210209`", ",", 
         "0.7971084870707131`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8606753087236825`", ",", "0.6349965722523808`", ",", 
         "0.12882601079853423`", ",", "0.024220763374139233`", ",", 
         "0.45157117178408634`", ",", "0.08541934868595759`", ",", 
         "0.37032732370122484`", ",", "0.05754823764078263`", ",", 
         "0.41159250674779196`", ",", "0.8457750506392294`", ",", 
         "0.320204420083065`", ",", "0.07227839391352656`", ",", 
         "0.2031793853829122`", ",", "0.039433298547727404`", ",", 
         "0.8878138484369263`", ",", "0.8034754655200856`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.33907296841875956`", ",", "0.26024805013156666`", ",", 
         "0.6590033404526644`", ",", "0.2795900563140654`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "3", ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.9909597029038897`", ",", "0.007910975376708453`", ",", 
       "0.0011293217194012532`", ",", "6.826942662356662`*^-16", ",", 
       "1.585717785600627`*^-22", ",", "0.0006659030294967036`", ",", 
       "0.04363207645575527`", ",", "0.000344552782772851`", ",", 
       "0.9553574512997409`", ",", "1.6432234293415535`*^-8", ",", 
       "0.00043861892183493753`", ",", "0.9984635382734192`", ",", 
       "0.0010898749126246432`", ",", "7.941003710487935`*^-6", ",", 
       "2.6888411030969398`*^-8"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.4824815692433523`", ",", "0.9170859823500066`", ",", 
         "0.27605872072560517`", ",", "0.8781900137331093`", ",", 
         "0.4582608058692131`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "0"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4655148105659202`", ",", "0.1906393720396476`", ",", 
         "0.5078626900318846`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.40071256822843043`", ",", "0.05392230381812823`", ",", 
         "0.3448643214004182`", ",", "0.18765826994881954`", ",", 
         "0.32843417431490385`", ",", "0.850742918435216`", ",", 
         "0.30543102285269075`", ",", "0.2998444215118932`", ",", 
         "0.5249587087948183`", ",", "0.5116699500164565`", ",", 
         "0.04518297272112413`", ",", "0.6408410810592288`", ",", 
         "0.24536865248075287`", ",", "0.7339086589427675`", ",", 
         "0.13412767974313813`", ",", "0.6338250565275851`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7628870832374006`", ",", "0.8168226765927609`", ",", 
         "0.858068959017533`", ",", "0.7556350427944758`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", "0"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.16018234411643034`", ",", "0.3044696249009461`", ",", 
       "0.09165061593742878`", ",", "0.29155628721738536`", ",", 
       "0.15214112782780947`", ",", "0.1390671360394274`", ",", 
       "0.8608409510972242`", ",", "0.00009185476586837773`", ",", 
       "5.809166914244923`*^-8", ",", "5.810751033642678`*^-12", ",", "1.`", 
       ",", "7.672531470082884`*^-18", ",", "2.5490239088761086`*^-46", ",", 
       "3.3828272857272106`*^-75", ",", "4.3811011476970496`*^-104"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.24777235276259127`", ",", "0.9039137091397571`", ",", 
         "0.29738556220871243`", ",", "0.3225652655774672`", ",", 
         "0.06011408281377173`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "1"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5754795348248533`", ",", "0.4466426437734964`", ",", 
         "0.017134242724776396`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7602696613018785`", ",", "0.05052082603003494`", ",", 
         "0.9349726937570398`", ",", "0.9719512700036522`", ",", 
         "0.11942858024264968`", ",", "0.805152173549282`", ",", 
         "0.20106403481427243`", ",", "0.8378235902605141`", ",", 
         "0.4856035237150645`", ",", "0.042265090311881484`", ",", 
         "0.3842413582215115`", ",", "0.9797546312429812`", ",", 
         "0.7299684809205887`", ",", "0.7376388129436939`", ",", 
         "0.032933492194670864`", ",", "0.31232504426509583`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.48219612815799745`", ",", "0.8337251038039368`", ",", 
         "0.7355479299859584`", ",", "0.9897597786876287`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "9.684051184199459`*^-7", ",", "0.9970193792774941`", ",", 
       "0.0029528056134632812`", ",", "0.000026804921950719137`", ",", 
       "4.178197350108502`*^-8", ",", "0.9990446053127383`", ",", 
       "0.0009553946872613424`", ",", "3.2306185975726605`*^-16", ",", 
       "8.954516686591721`*^-29", ",", "3.936702087909363`*^-42", ",", 
       "0.8118540835602569`", ",", "0.18814588657755665`", ",", 
       "2.9862182821455224`*^-8", ",", "3.787327680134784`*^-15", ",", 
       "6.806382366283551`*^-23"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.9726255359628523`", ",", "0.6618123840423472`", ",", 
         "0.20772474294904872`", ",", "0.35393259245542213`", ",", 
         "0.000674265959200007`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "2"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5423838037996975`", ",", "0.40257256939976666`", ",", 
         "0.15286855764114973`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.16285067569868586`", ",", "0.056780280084633046`", ",", 
         "0.3603074790878852`", ",", "0.7686271994196382`", ",", 
         "0.18309604445570468`", ",", "0.32681179916404435`", ",", 
         "0.6226686661441913`", ",", "0.7356937072249673`", ",", 
         "0.8707710001906088`", ",", "0.8446156710060468`", ",", 
         "0.7889435623402543`", ",", "0.00014577723900889399`", ",", 
         "0.8810112215029802`", ",", "0.4225336256618212`", ",", 
         "0.5306979933611707`", ",", "0.7112404910265469`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9083856855401279`", ",", "0.760721241619474`", ",", 
         "0.322973250412122`", ",", "0.3573078985711247`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", 
         RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.9878796778312051`", ",", "0.012116131248778432`", ",", 
       "4.190920016484787`*^-6", ",", "3.039197632312255`*^-21", ",", 
       "8.151034892375112`*^-31", ",", "4.42547008411102`*^-8", ",", 
       "0.9709960990189656`", ",", "0.028234364550221328`", ",", 
       "0.0007694715128710025`", ",", "2.066324143461929`*^-8", ",", 
       "0.9993059481215676`", ",", "0.0006940012550960298`", ",", 
       "1.0290244624563274`*^-8", ",", "4.0333091750271246`*^-8", ",", 
       "9.634339023540836`*^-19"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.20443934092997498`", ",", "0.744860743882242`", ",", 
         "0.16155715773514334`", ",", "0.5600932019244702`", ",", 
         "0.43581214151033676`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5617646994265373`", ",", "0.834745358571099`", ",", 
         "0.937424535780279`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7001184342853695`", ",", "0.6909936992359285`", ",", 
         "0.9901296875650522`", ",", "0.14848097344002462`", ",", 
         "0.6999726570463606`", ",", "0.8099824777329483`", ",", 
         "0.567596061903231`", ",", "0.6177829800788539`", ",", 
         "0.9887321660198137`", ",", "0.9015967921928204`", ",", 
         "0.806874820283757`", ",", "0.29480972966673197`", ",", 
         "0.631424267448689`", ",", "0.9938853726118926`", ",", 
         "0.5885373824639807`", ",", "0.37440904865437663`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.426984926518714`", ",", "0.24902462872965056`", ",", 
         "0.4269802247288373`", ",", "0.8143158467299064`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "4", ",", "2"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "2.00691264769899`*^-9", ",", "0.9999999979930875`", ",", 
       "3.080285331759504`*^-18", ",", "7.950488049870423`*^-31", ",", 
       "1.874855762332737`*^-43", ",", "0.8971891501215297`", ",", 
       "0.10281084987579674`", ",", "2.6736562055964354`*^-12", ",", 
       "5.949123567921601`*^-23", ",", "5.286343520993499`*^-28", ",", 
       "5.049077053934275`*^-8", ",", "0.00011064339024060809`", ",", 
       "0.9998892551315643`", ",", "4.9988988816050164`*^-8", ",", 
       "9.984357849552947`*^-10"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.8768913109496275`", ",", "0.2910543507230078`", ",", 
         "0.9962662300671847`", ",", "0.6021051785926862`", ",", 
         "0.7284103375096028`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "0"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5910816936766472`", ",", "0.1862837523342364`", ",", 
         "0.03450911668945524`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.11062735743074892`", ",", "0.6023495276568335`", ",", 
         "0.284686960141416`", ",", "0.2276342964056982`", ",", 
         "0.815817627764017`", ",", "0.9709252602081445`", ",", 
         "0.2908015875295234`", ",", "0.6390969139417175`", ",", 
         "0.4414085791096404`", ",", "0.5439403336894305`", ",", 
         "0.041776958799872844`", ",", "0.21211668921288027`", ",", 
         "0.627092732379734`", ",", "0.5527675486810533`", ",", 
         "0.3545170294967596`", ",", "0.619881823055142`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7502014214301065`", ",", "0.2617131979580455`", ",", 
         "0.35825079942957483`", ",", "0.01777664446245578`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "0", ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.9996513357189615`", ",", "0.0003486203557832506`", ",", 
       "4.392438609874423`*^-8", ",", "8.692113560670609`*^-13", ",", 
       "3.4141874787468824`*^-17", ",", "0.9999999900858046`", ",", 
       "9.914194740973367`*^-9", ",", "6.716328374160017`*^-16", ",", 
       "1.2409733212144961`*^-23", ",", "1.8447634904678235`*^-31", ",", 
       "0.9995312840398058`", ",", "0.00046871244308703937`", ",", 
       "3.5171054799882137`*^-9", ",", "1.7183198314764186`*^-15", ",", 
       "1.4021654444687928`*^-21"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.9832675277730005`", ",", "0.9111637264897547`", ",", 
         "0.06828197662456478`", ",", "0.8872800869539225`", ",", 
         "0.7556332313673023`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.09534609872573772`", ",", "0.09735671641642028`", ",", 
         "0.596478499424399`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.11653631742558473`", ",", "0.6539375196160974`", ",", 
         "0.5534163827269898`", ",", "0.5547015406245263`", ",", 
         "0.9044196282127045`", ",", "0.02684478723636341`", ",", 
         "0.0006488340459365198`", ",", "0.2001845111277666`", ",", 
         "0.2845378051575625`", ",", "0.2766433658062569`", ",", 
         "0.738935636087891`", ",", "0.8419337116981918`", ",", 
         "0.2667611606951067`", ",", "0.2548522818857533`", ",", 
         "0.06830413180649274`", ",", "0.6699666646028534`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.28349363292210616`", ",", "0.34368855539599863`", ",", 
         "0.00002215518192795799`", ",", "0.7826865776489309`"}], "}"}], ",", 
       
       RowBox[{"{", 
        RowBox[{"4", ",", 
         RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.999966100930623`", ",", "0.000033899068905644335`", ",", 
       "4.713544028495797`*^-13", ",", "2.726540013403568`*^-21", ",", 
       "5.676649498453826`*^-24", ",", "0.00041869407064035197`", ",", 
       "0.9988686691777264`", ",", "0.0006986848092703436`", ",", 
       "0.000013937920236264005`", ",", "1.4022126566173943`*^-8", ",", 
       "2.499999999999999`*^-6", ",", "2.499999999999999`*^-6", ",", 
       "2.499999999999999`*^-6", ",", "0.99999`", ",", 
       "2.499999999999999`*^-6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.1862080782245318`", ",", "0.4113240841292191`", ",", 
         "0.5944049370541635`", ",", "0.3492490560385179`", ",", 
         "0.6315065376000056`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5069044559165147`", ",", "0.5675601498178001`", ",", 
         "0.3486002219925814`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.431322026472239`", ",", "0.22236665075895215`", ",", 
         "0.2909167840115432`", ",", "0.6096645859046903`", ",", 
         "0.5893883147740473`", ",", "0.9556054900638454`", ",", 
         "0.03606450212578988`", ",", "0.5413604540981977`", ",", 
         "0.9194216501711939`", ",", "0.6721118571417393`", ",", 
         "0.6923759467297913`", ",", "0.5413382989162696`", ",", 
         "0.13673507252226305`", ",", "0.14425145558693542`", ",", 
         "0.4440334900595304`", ",", "0.638672860150762`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9505269942977312`", ",", "0.7329273714577162`", ",", 
         "0.8496285530053669`", ",", "0.28942380411224405`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.09917547830693654`", ",", "0.9008242103831354`", ",", 
       "3.1130990715364456`*^-7", ",", "2.0898401648664503`*^-14", ",", 
       "4.1163677550913074`*^-21", ",", "0.5242017804599571`", ",", 
       "0.47579471462365996`", ",", "3.5049076788755794`*^-6", ",", 
       "8.704019525369166`*^-12", ",", "6.636294893996141`*^-17", ",", 
       "1.5041619554310609`*^-6", ",", "0.9999474290242998`", ",", 
       "0.00005106647045462354`", ",", "3.4328365650434595`*^-10", ",", 
       "6.547547541478119`*^-15"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.9408235821196627`", ",", "0.8876984302254867`", ",", 
         "0.0036562647822494755`", ",", "0.9911516191760236`", ",", 
         "0.33115899621497236`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "3"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.29831011545143943`", ",", "0.04805077471840403`", ",", 
         "0.9550871170502336`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7897985421167747`", ",", "0.3788884652802455`", ",", 
         "0.37593891757666476`", ",", "0.2627111703204424`", ",", 
         "0.24846024320050508`", ",", "0.24215339275798242`", ",", 
         "0.23168746198972934`", ",", "0.818677680260912`", ",", 
         "0.6097873830497431`", ",", "0.2916263984602512`", ",", 
         "0.49876009053201303`", ",", "0.9690491272555452`", ",", 
         "0.32036357893749906`", ",", "0.9726059417625256`", ",", 
         "0.2727371749908114`", ",", "0.6869807240679784`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.37953999681783634`", ",", "0.08490751153703888`", ",", 
         "0.26908091020856195`", ",", "0.6958291048919548`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "3", ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.7754911157222621`", ",", "0.2245088476127129`", ",", 
       "3.64539371950221`*^-8", ",", "2.110862664401646`*^-10", ",", 
       "1.4331843915248986`*^-15", ",", "0.9803526717293811`", ",", 
       "0.019647091141596837`", ",", "1.2958160717673425`*^-7", ",", 
       "1.0754741491579955`*^-7", ",", "4.491101966043688`*^-19", ",", 
       "0.0000434652344576382`", ",", "0.9999565347549012`", ",", 
       "1.0641086662155062`*^-11", ",", "2.6287365766510096`*^-18", ",", 
       "7.768305618258087`*^-28"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "0.7407419878417212`", ",", "0.25858245848608924`", ",", 
         "0.407708930805354`", ",", "0.8450912179134932`", ",", 
         "0.4780308175212788`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "2"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.010122215285584171`", ",", "0.16555553804737158`", ",", 
         "0.6134037559237638`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6593531372603668`", ",", "0.40033483223584104`", ",", 
         "0.8739291395871204`", ",", "0.11464366539175075`", ",", 
         "0.6903040100048216`", ",", "0.07997125329834201`", ",", 
         "0.9013231978245949`", ",", "0.8419064904009393`", ",", 
         "0.003323285936843178`", ",", "0.7004312564805056`", ",", 
         "0.816415686287556`", ",", "0.5728255801923774`", ",", 
         "0.3074941810448883`", ",", "0.6520502558776416`", ",", 
         "0.029818290201956546`", ",", "0.3517954447022195`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.566752193203167`", ",", "0.3934677973915524`", ",", 
         "0.6221093593966025`", ",", "0.5067042267887263`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0.07101115613581259`", ",", "0.9278963777731166`", ",", 
       "0.0010922657202387391`", ",", "2.0036368066560954`*^-7", ",", 
       "7.151508572705328`*^-12", ",", "0.9517340013290997`", ",", 
       "0.04807233877483827`", ",", "0.0001928642381265431`", ",", 
       "7.947790819448661`*^-7", ",", "8.788535798499496`*^-10", ",", 
       "0.22197035246389812`", ",", "0.7780296051181628`", ",", 
       "4.241793802297695`*^-8", ",", "9.955412927336266`*^-16", ",", 
       "6.083885820993696`*^-24"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.50559476838999*^9, 3.505594823030779*^9, 3.5056949052899446`*^9, 
   3.505694954491392*^9, {3.505748457227779*^9, 3.505748465312902*^9}, 
   3.50575996370306*^9, {3.505941742263115*^9, 3.505941756715589*^9}, 
   3.505941868500101*^9, 3.522541927677103*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Qfunc Test Vectors", "Subsubsection",
 CellChangeTimes->{{3.505595435114874*^9, 3.505595436888865*^9}, {
  3.5055961806636457`*^9, 3.505596183062715*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "qfunc", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"qfunc", "[", 
    RowBox[{
    "\[Kappa]_", ",", " ", "log\[Alpha]_", ",", " ", "\[Tau]_", ",", " ", 
     "\[Gamma]_", ",", " ", "\[Rho]_", ",", " ", "log\[Lambda]_", ",", " ", 
     "pz_", ",", " ", "priorz_", ",", " ", "d_", ",", " ", "plog\[Alpha]_", 
     ",", " ", "p\[Tau]_", ",", " ", "p\[Gamma]_", ",", " ", "p\[Kappa]_", 
     ",", " ", "p\[Rho]_", ",", " ", "plog\[Lambda]_"}], "]"}], " ", ":=", 
   " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"q", " ", "=", " ", "0"}], ",", " ", "x", ",", " ", "y", ",", 
       " ", "z", ",", " ", "worker", ",", " ", "image", ",", " ", "rating"}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"x", " ", "=", " ", "1"}], ",", " ", 
        RowBox[{"x", " ", "\[LessEqual]", " ", 
         RowBox[{"Length", "[", "pz", "]"}]}], ",", " ", 
        RowBox[{"++", "x"}], ",", "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"y", " ", "=", " ", "1"}], ",", " ", 
          RowBox[{"y", " ", "\[LessEqual]", " ", 
           RowBox[{"Length", "[", "priorz", "]"}]}], ",", " ", 
          RowBox[{"++", "y"}], ",", "\[IndentingNewLine]", 
          RowBox[{"q", " ", "-=", " ", 
           RowBox[{
            RowBox[{
             RowBox[{"pz", "[", 
              RowBox[{"[", "x", "]"}], "]"}], "[", 
             RowBox[{"[", "y", "]"}], "]"}], " ", 
            RowBox[{"Log", "[", 
             RowBox[{
              RowBox[{"pz", "[", 
               RowBox[{"[", "x", "]"}], "]"}], "[", 
              RowBox[{"[", "y", "]"}], "]"}], "]"}]}]}]}], 
         "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"x", " ", "=", " ", "1"}], ",", " ", 
        RowBox[{"x", " ", "\[LessEqual]", " ", 
         RowBox[{"Length", "[", "d", "]"}]}], ",", " ", 
        RowBox[{"++", "x"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"worker", " ", "=", " ", 
          RowBox[{
           RowBox[{"d", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"image", " ", "=", " ", 
          RowBox[{
           RowBox[{"d", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"rating", " ", "=", " ", 
          RowBox[{
           RowBox[{"d", "[", 
            RowBox[{"[", "x", "]"}], "]"}], "[", 
           RowBox[{"[", "3", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"y", " ", "=", " ", "1"}], ",", " ", 
           RowBox[{"y", " ", "\[LessEqual]", " ", 
            RowBox[{"Length", "[", "priorz", "]"}]}], ",", " ", 
           RowBox[{"++", "y"}], ",", "\[IndentingNewLine]", 
           RowBox[{"q", " ", "+=", " ", 
            RowBox[{
             RowBox[{
              RowBox[{"pz", "[", 
               RowBox[{"[", "image", "]"}], "]"}], "[", 
              RowBox[{"[", "y", "]"}], "]"}], 
             RowBox[{"Log", "[", 
              RowBox[{"polytomousrasch", "[", 
               RowBox[{"rating", ",", " ", 
                RowBox[{
                 RowBox[{"Exp", "[", 
                  RowBox[{"log\[Alpha]", "[", 
                   RowBox[{"[", "image", "]"}], "]"}], "]"}], " ", 
                 RowBox[{"Exp", "[", 
                  RowBox[{"log\[Lambda]", "[", 
                   RowBox[{"[", "worker", "]"}], "]"}], "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"y", " ", "-", " ", "1"}], ")"}]}], ",", " ", 
                RowBox[{
                 RowBox[{"Exp", "[", 
                  RowBox[{"log\[Alpha]", "[", 
                   RowBox[{"[", "image", "]"}], "]"}], "]"}], " ", 
                 RowBox[{"Exp", "[", 
                  RowBox[{"log\[Lambda]", "[", 
                   RowBox[{"[", "worker", "]"}], "]"}], "]"}], 
                 RowBox[{"\[Tau]", "[", 
                  RowBox[{"[", "worker", "]"}], "]"}]}]}], "]"}], "]"}]}]}]}],
           "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"q", " ", "+=", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"PDF", "[", 
         RowBox[{"p\[Kappa]", ",", " ", "\[Kappa]"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"x", " ", "=", " ", "1"}], ",", " ", 
        RowBox[{"x", " ", "\[LessEqual]", " ", 
         RowBox[{"Length", "[", "log\[Alpha]", "]"}]}], ",", " ", 
        RowBox[{"++", "x"}], ",", "\[IndentingNewLine]", 
        RowBox[{"q", " ", "+=", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"PDF", "[", 
           RowBox[{
            RowBox[{"plog\[Alpha]", "[", "\[Kappa]", "]"}], ",", " ", 
            RowBox[{"log\[Alpha]", "[", 
             RowBox[{"[", "x", "]"}], "]"}]}], "]"}], "]"}]}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"x", " ", "=", " ", "1"}], ",", " ", 
        RowBox[{"x", " ", "\[LessEqual]", " ", 
         RowBox[{"Length", "[", "\[Tau]", "]"}]}], ",", " ", 
        RowBox[{"++", "x"}], ",", "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"y", " ", "=", " ", "1"}], ",", " ", 
          RowBox[{"y", " ", "\[LessEqual]", " ", 
           RowBox[{"Length", "[", 
            RowBox[{"\[Tau]", "[", 
             RowBox[{"[", "x", "]"}], "]"}], "]"}]}], ",", " ", 
          RowBox[{"++", "y"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"q", " ", "+=", " ", 
            RowBox[{"Log", "[", 
             RowBox[{"PDF", "[", 
              RowBox[{
               RowBox[{"p\[Tau]", "[", 
                RowBox[{"\[Gamma]", "[", 
                 RowBox[{"[", "y", "]"}], "]"}], "]"}], ",", " ", 
               RowBox[{
                RowBox[{"\[Tau]", "[", 
                 RowBox[{"[", "x", "]"}], "]"}], "[", 
                RowBox[{"[", "y", "]"}], "]"}]}], "]"}], "]"}]}], ";"}]}], 
         "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"x", " ", "=", " ", "1"}], ",", " ", 
        RowBox[{"x", " ", "\[LessEqual]", " ", 
         RowBox[{"Length", "[", "\[Gamma]", "]"}]}], ",", " ", 
        RowBox[{"++", "x"}], ",", "\[IndentingNewLine]", 
        RowBox[{"q", " ", "+=", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"PDF", "[", 
           RowBox[{
            RowBox[{"p\[Gamma]", "[", 
             RowBox[{"[", "x", "]"}], "]"}], ",", " ", 
            RowBox[{"\[Gamma]", "[", 
             RowBox[{"[", "x", "]"}], "]"}]}], "]"}], "]"}]}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"q", " ", "+=", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"PDF", "[", 
         RowBox[{"p\[Rho]", ",", " ", "\[Rho]"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"x", " ", "=", " ", "1"}], ",", " ", 
        RowBox[{"x", " ", "\[LessEqual]", " ", 
         RowBox[{"Length", "[", "log\[Lambda]", "]"}]}], ",", " ", 
        RowBox[{"++", "x"}], ",", "\[IndentingNewLine]", 
        RowBox[{"q", " ", "+=", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"PDF", "[", 
           RowBox[{
            RowBox[{"plog\[Lambda]", "[", "\[Rho]", "]"}], ",", " ", 
            RowBox[{"log\[Lambda]", "[", 
             RowBox[{"[", "x", "]"}], "]"}]}], "]"}], "]"}]}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "q"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.505595455899826*^9, 3.5055954815028133`*^9}, {
  3.505595591072061*^9, 3.505595746588525*^9}, {3.505595921361999*^9, 
  3.505595921696361*^9}, {3.505673645537788*^9, 3.505673719447109*^9}, {
  3.505673756166316*^9, 3.505673756674253*^9}, {3.505694245510009*^9, 
  3.505694268051146*^9}, {3.505760009986413*^9, 3.5057600165699587`*^9}, {
  3.50576005721931*^9, 3.505760078610647*^9}, {3.5057625246204443`*^9, 
  3.505762552682109*^9}, {3.5057627938738422`*^9, 3.505762797951902*^9}, {
  3.505765158450721*^9, 3.505765213777804*^9}, {3.5059421283530493`*^9, 
  3.505942210664938*^9}, {3.506003737712338*^9, 3.5060037700735073`*^9}, {
  3.522541916078946*^9, 3.522541921920133*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nworkers", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nworkers", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nimages", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nimages", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nratings", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nratings", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"!", " ", 
             RowBox[{"ListQ", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
            RowBox[{"!", " ", 
             RowBox[{"IntegerQ", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
         RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
      " ", "/@", " ", "#"}], ",", " ", 
     RowBox[{"qfunc", "[", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", "7", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "8", "]"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "+", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{"1", "+", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "&"}], " ", "/@", " ", 
        RowBox[{"#", "[", 
         RowBox[{"[", "9", "]"}], "]"}]}], ",", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "10", "]"}], "]"}]}], "]"}]}], "]"}], ",", " ", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "11", "]"}], "]"}]}], "]"}]}], "]"}], ",", 
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "12", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "13", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "14", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "15", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "16", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "17", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "18", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "19", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "20", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "21", "]"}], "]"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "22", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "23", "]"}], "]"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "24", "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], 
    "}"}], "&"}], "/@", "\[IndentingNewLine]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nimages"}], " ", "}"}]}], 
       "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "}"}]}], "]"}], ",", 
        " ", 
        RowBox[{"{", " ", 
         RowBox[{"k", ",", " ", "1", ",", " ", "nworkers"}], "}"}]}], "]"}], 
      ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", 
          RowBox[{"nlabels", " ", "-", " ", "1"}]}], "}"}]}], "]"}], ",", " ",
       "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nworkers"}], " ", "}"}]}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "nimages"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nworkers", " ", "-", " ", "1"}]}], "]"}], ",", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nimages", " ", "-", " ", "1"}]}], "]"}], ",", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], "}"}], ",", 
        " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nratings"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", " ", 
     RowBox[{"foo", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.504016424813343*^9, 3.504016580297758*^9}, {
   3.504018269599441*^9, 3.504018279219314*^9}, {3.504018359153508*^9, 
   3.504018387475568*^9}, {3.5040184327040863`*^9, 3.504018509500141*^9}, {
   3.504018861653284*^9, 3.504018920277594*^9}, {3.504019049785894*^9, 
   3.504019065803638*^9}, 3.504019184180941*^9, {3.504059801963703*^9, 
   3.504059813764331*^9}, 3.5040599982883453`*^9, {3.504060100407703*^9, 
   3.504060104803857*^9}, 3.504060440796597*^9, {3.504060503267675*^9, 
   3.504060525182757*^9}, {3.50456047953319*^9, 3.504560681387557*^9}, {
   3.504577463729417*^9, 3.504577464011519*^9}, {3.504577589051256*^9, 
   3.504577590132493*^9}, {3.504577632742776*^9, 3.5045776330605373`*^9}, {
   3.504740502012248*^9, 3.504740503922497*^9}, {3.504740727150861*^9, 
   3.504740736352736*^9}, 3.504876469621917*^9, {3.5055962008030443`*^9, 
   3.505596275077857*^9}, {3.505596319880871*^9, 3.505596373226162*^9}, {
   3.505596415459552*^9, 3.505596505766666*^9}, {3.50559654044011*^9, 
   3.505596540734797*^9}, 3.505672802683957*^9, 3.5056942774993753`*^9, {
   3.505694366620678*^9, 3.505694366726482*^9}, {3.5057600362594757`*^9, 
   3.5057600462592773`*^9}, 3.505760218072028*^9, {3.5057618784831467`*^9, 
   3.5057618855096197`*^9}, {3.505765314690784*^9, 3.505765460997046*^9}, {
   3.505765519815023*^9, 3.505765560295491*^9}, 3.505765708877458*^9, {
   3.5059422297177*^9, 3.50594224933794*^9}, {3.5059422915411587`*^9, 
   3.5059423868650618`*^9}, {3.505942419849204*^9, 3.505942458271961*^9}, 
   3.506003797955632*^9, 3.522544655482306*^9, 3.522544695510792*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7124491642308719`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4447405020860839`", ",", "0.9552664801144669`", ",", 
         "0.01218779667359663`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.112178901691514`", ",", "0.4948793416042865`", ",", 
         "0.004908047331577078`", ",", "0.49124904760050647`", ",", 
         "0.9813192419117802`", ",", "0.6361753091700526`", ",", 
         "0.8764614072778896`", ",", "0.16113262380577792`", ",", 
         "0.682904992954128`", ",", "0.1847156690298268`", ",", 
         "0.801592498685382`", ",", "0.5892545764454952`", ",", 
         "0.9715182855539967`", ",", "0.20126094497606603`", ",", 
         "0.6847855001586821`", ",", "0.24912950651542584`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.44926405776176426`", ",", "0.5592868395877173`", ",", 
         "0.8553559858630656`", ",", "0.13763860442778408`"}], "}"}], ",", 
       "0.7368148935308922`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.1145463375016334`", ",", "0.9000895057485987`", ",", 
         "0.12545080775418746`", ",", "0.6246359918393782`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6196669958973469`", ",", "0.8951814584170216`", ",", 
         "0.634201760153681`", ",", "0.6433167499275981`", ",", 
         "0.9834916867272944`", ",", "0.018720051139132023`", ",", 
         "0.4730691363479031`", ",", "0.9604117569734701`", ",", 
         "0.7987760176974675`", ",", "0.2171275524537501`", ",", 
         "0.8838145599024079`", ",", "0.9888934714194735`", ",", 
         "0.5975150727214015`", ",", "0.532342052295068`", ",", 
         "0.634685053386982`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5396294136577093`", ",", "0.038228233133684196`", ",", 
         "0.6769860664320023`", ",", "0.497046448959198`", ",", 
         "0.802814520126817`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "3"}], "}"}]}], "}"}], ",", 
       "0.9236818956320508`", ",", "0.7768965606834036`", ",", 
       "0.3715956412050105`", ",", "0.17817852828743871`", ",", 
       "0.3040148997347039`", ",", "0.8817151022663821`", ",", 
       "0.7373938810513295`", ",", "0.5348617783598406`", ",", 
       "0.32052321300740955`", ",", "0.8629950511272501`", ",", 
       "0.26432474470342643`", ",", "0.5744500213863705`", ",", 
       "0.521747195309942`", ",", "0.6458674986734999`", ",", 
       "0.3805101848010185`"}], "}"}], ",", 
     RowBox[{"-", "274.9458192787719`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.5855565499668969`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9242321225885405`", ",", "0.1135254463784319`", ",", 
         "0.7458251314140365`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.04592713630918762`", ",", "0.8860038894548563`", ",", 
         "0.43653937994642955`", ",", "0.2487786824548385`", ",", 
         "0.24311261618237062`", ",", "0.9623219938228055`", ",", 
         "0.6596428192630259`", ",", "0.877183041249828`", ",", 
         "0.0649340878949319`", ",", "0.6583070940881016`", ",", 
         "0.7779277169966439`", ",", "0.1397891601984985`", ",", 
         "0.5300723095350913`", ",", "0.33778388108069207`", ",", 
         "0.9149326658693938`", ",", "0.875464415495072`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9556222881487209`", ",", "0.8160366857707501`", ",", 
         "0.2690651671958939`", ",", "0.4949542306940536`"}], "}"}], ",", 
       "0.3700657381818239`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8918045631822096`", ",", "0.15553972081746198`", ",", 
         "0.7491290992800171`", ",", "0.3241386018726363`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.005800673727353299`", ",", "0.7190003408710325`", ",", 
         "0.5003504168251787`", ",", "0.08102598569026571`", ",", 
         "0.04347867990454782`", ",", "0.059357521608006565`", ",", 
         "0.6231673755753506`", ",", "0.016091897795333827`", ",", 
         "0.3851715858164462`", ",", "0.28142980461136274`", ",", 
         "0.4833782153768521`", ",", "0.48601958826024255`", ",", 
         "0.04738770473575417`", ",", "0.36649713874196893`", ",", 
         "0.6079137998817801`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5303973001115216`", ",", "0.23135101896500412`", ",", 
         "0.09743197154607504`", ",", "0.11295956918772646`", ",", 
         "0.16033156192969775`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
       "0.3395464557827945`", ",", "0.941892250728613`", ",", 
       "0.36383046990770934`", ",", "0.8361929600570615`", ",", 
       "0.33374578205544125`", ",", "0.22289190985758062`", ",", 
       "0.8634800530825307`", ",", "0.7551669743667957`", ",", 
       "0.2902671021508934`", ",", "0.16353438824957406`", ",", 
       "0.24031267750718008`", ",", "0.7390750765714619`", ",", 
       "0.9050955163344472`", ",", "0.8821045836382113`", ",", 
       "0.756934462130328`"}], "}"}], ",", 
     RowBox[{"-", "214.7023589844146`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.2530554883112193`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.857707811598693`", ",", "0.5156074448962424`", ",", 
         "0.14902066224854796`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7226581881996976`", ",", "0.6263567926336889`", ",", 
         "0.41817547335016736`", ",", "0.03606109306082149`", ",", 
         "0.5623266262699999`", ",", "0.28681033685089435`", ",", 
         "0.4762832226215543`", ",", "0.6722306231531121`", ",", 
         "0.7261336662129385`", ",", "0.9530645547954532`", ",", 
         "0.2533913127639737`", ",", "0.8087505700705815`", ",", 
         "0.9709666918461427`", ",", "0.6627974526445597`", ",", 
         "0.08985692451439962`", ",", "0.5684378925634014`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.23189161527468088`", ",", "0.7577019363101125`", ",", 
         "0.2077523408761883`", ",", "0.8115034304330734`"}], "}"}], ",", 
       "0.9788361269634616`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8999941247114195`", ",", "0.6921448959799459`", ",", 
         "0.6624827681845255`", ",", "0.25617793876376393`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2736373320777306`", ",", "0.2739694226297785`", ",", 
         "0.626421675123704`", ",", "0.6938513124937641`", ",", 
         "0.9868269952268363`", ",", "0.7976862000082242`", ",", 
         "0.9541910519705917`", ",", "0.9677176462808256`", ",", 
         "0.033762440431383094`", ",", "0.5442948872442506`", ",", 
         "0.14544048190001033`", ",", "0.9967509544346829`", ",", 
         "0.37096498778682335`", ",", "0.4544379627298509`", ",", 
         "0.577002589336609`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7648593391600019`", ",", "0.6132630514767108`", ",", 
         "0.24668562185366258`", ",", "0.7654991589035356`", ",", 
         "0.7860232121965404`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.7132689267652913`", ",", "0.5545407258737167`", ",", 
       "0.10301639071901016`", ",", "0.5298452734327764`", ",", 
       "0.43963159468756074`", ",", "0.2805713032439382`", ",", 
       "0.4765947155953062`", ",", "0.8359939609390125`", ",", 
       "0.4528045994607245`", ",", "0.482885103235714`", ",", 
       "0.5224036636247145`", ",", "0.8682763146581868`", ",", 
       "0.4190421590293414`", ",", "0.9385902159914634`", ",", 
       "0.3769631817247041`"}], "}"}], ",", 
     RowBox[{"-", "132.1751362882994`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.871525360223504`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.04807717124251802`", ",", "0.4841522532616126`", ",", 
         "0.7999605923880951`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.10666602106350205`", ",", "0.4348141197658072`", ",", 
         "0.23746663140795`", ",", "0.03446143348455952`", ",", 
         "0.32064280886696167`", ",", "0.7215451930005159`", ",", 
         "0.6829259055342333`", ",", "0.9314450427655494`", ",", 
         "0.7907975354341852`", ",", "0.28191359831295515`", ",", 
         "0.4023546022902951`", ",", "0.45485032717024315`", ",", 
         "0.9548035744951728`", ",", "0.8291089988522307`", ",", 
         "0.9194694990545812`", ",", "0.9324466635455287`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.08652725983698599`", ",", "0.4100668398228893`", ",", 
         "0.9808792830631177`", ",", "0.5554834818208246`"}], "}"}], ",", 
       "0.21500189961348198`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.36198966858037124`", ",", "0.4967270298015051`", ",", 
         "0.7555228894327295`", ",", "0.10833587854997993`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9271755488145641`", ",", "0.25926039839355514`", ",", 
         "0.7210614559481701`", ",", "0.7876930696830182`", ",", 
         "0.2056303558140482`", ",", "0.5763344928593218`", ",", 
         "0.7896164131826207`", ",", "0.996895534248833`", ",", 
         "0.923716757501093`", ",", "0.1739798905690267`", ",", 
         "0.3347660860123775`", ",", "0.04209195975366024`", ",", 
         "0.09460775864886241`", ",", "0.25451039151444554`", ",", 
         "0.40231942246684876`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9555646999166743`", ",", "0.6845409188259731`", ",", 
         "0.2736311084513279`", ",", "0.8468359406460242`", ",", 
         "0.7405628003031922`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.32255125024560194`", ",", "0.7769040786498227`", ",", 
       "0.09131305121329462`", ",", "0.6322269217532124`", ",", 
       "0.3953757014310379`", ",", "0.5176436802562676`", ",", 
       "0.37025159526512463`", ",", "0.844533852070194`", ",", 
       "0.18974534561698966`", ",", "0.9413091873969457`", ",", 
       "0.580635182082504`", ",", "0.847638317821361`", ",", 
       "0.26602858811589664`", ",", "0.767329296827919`", ",", 
       "0.24586909607012647`"}], "}"}], ",", 
     RowBox[{"-", "128.0766127471239`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.8055463580677008`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.1714208294670342`", ",", "0.5128189053134734`", ",", 
         "0.8435496736032777`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8499816581510266`", ",", "0.48687991064106106`", ",", 
         "0.23918779686214556`", ",", "0.9967137329572535`", ",", 
         "0.10941885784783426`", ",", "0.16432866039545915`", ",", 
         "0.46228371821232284`", ",", "0.9054006817439589`", ",", 
         "0.4771919360946219`", ",", "0.7689529589644213`", ",", 
         "0.9446400379560552`", ",", "0.5351490864788343`", ",", 
         "0.6326580840244279`", ",", "0.5792076133474316`", ",", 
         "0.003330850559109558`", ",", "0.9545139043963303`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7850197662030669`", ",", "0.31317902523153496`", ",", 
         "0.23600155373119056`", ",", "0.7086448083262039`"}], "}"}], ",", 
       "0.9794734081353661`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.14175819576450077`", ",", "0.7231826484177172`", ",", 
         "0.8650951347229262`", ",", "0.12949174998433954`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6548782851234397`", ",", "0.48399485155557154`", ",", 
         "0.8683814017656726`", ",", "0.0200728921365053`", ",", 
         "0.4905496247279806`", ",", "0.02171113334324871`", ",", 
         "0.9629807200217136`", ",", "0.5428809560418834`", ",", 
         "0.7215966657635593`", ",", "0.07707109538719344`", ",", 
         "0.4278316335428794`", ",", "0.9102228720174556`", ",", 
         "0.14238905241612768`", ",", "0.07374024482808388`", ",", 
         "0.473317729146549`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.12520310581438865`", ",", "0.8292100271845927`", ",", 
         "0.8377386910968934`", ",", "0.7646729208203452`", ",", 
         "0.14572969767902258`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.6874518314200919`", ",", "0.11455604267917618`", ",", 
       "0.899577786097419`", ",", "0.01623794769468301`", ",", 
       "0.03257354629665225`", ",", "0.6305611911236046`", ",", 
       "0.031196384331746395`", ",", "0.9961650555581777`", ",", 
       "0.5420239215686717`", ",", "0.608850057780356`", ",", 
       "0.06821566431003272`", ",", "0.45328409951629434`", ",", 
       "0.8204272558051124`", ",", "0.5317789623931625`", ",", 
       "0.6403840307671533`"}], "}"}], ",", 
     RowBox[{"-", "171.17412435583836`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.5430612274988389`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6780382033889847`", ",", "0.4580387175650786`", ",", 
         "0.16706630162060432`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4178581216844502`", ",", "0.848828176204392`", ",", 
         "0.6203000264681853`", ",", "0.40239338080025916`", ",", 
         "0.27212842400542764`", ",", "0.16137634478430005`", ",", 
         "0.5057439837890091`", ",", "0.5028155947028401`", ",", 
         "0.25589047631074463`", ",", "0.1288027984876478`", ",", 
         "0.8751827926654044`", ",", "0.4716192103710937`", ",", 
         "0.2597254207525669`", ",", "0.5867788769189761`", ",", 
         "0.2663327348850486`", ",", "0.40340354606106105`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8064413212362725`", ",", "0.7663516211138637`", ",", 
         "0.7345537724918861`", ",", "0.7630195152939077`"}], "}"}], ",", 
       "0.2633800937374337`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.08831341772487897`", ",", "0.2765150549268075`", ",", 
         "0.5959532136733033`", ",", "0.8455219720529835`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.23948524152048695`", ",", "0.6562150284586222`", ",", 
         "0.19355983287304424`", ",", "0.5733935480475559`", ",", 
         "0.0781088967361869`", ",", "0.1504710446696131`", ",", 
         "0.6907442381702041`", ",", "0.3175030717368113`", ",", 
         "0.9493060982485391`", ",", "0.27528825200420864`", ",", 
         "0.2191250277991104`", ",", "0.057777650984244394`", ",", 
         "0.362527221329563`", ",", "0.008955517119160051`", ",", 
         "0.8157214817380494`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2513363297479718`", ",", "0.5961756002156993`", ",", 
         "0.27440174462727396`", ",", "0.052701966444141664`", ",", 
         "0.9879562360105382`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "0"}], "}"}]}], "}"}], ",", 
       "0.5078621824908204`", ",", "0.9978866897004665`", ",", 
       "0.45674875277083826`", ",", "0.1424342639575546`", ",", 
       "0.2683769409703334`", ",", "0.3416716612418442`", ",", 
       "0.263188919897794`", ",", "0.5690407159099987`", ",", 
       "0.19026804423414648`", ",", "0.19120061657223109`", ",", 
       "0.5724446817275899`", ",", "0.2515376441731874`", ",", 
       "0.24096194598560738`", ",", "0.9159123645680225`", ",", 
       "0.3533196539284795`"}], "}"}], ",", 
     RowBox[{"-", "126.57737285147047`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.19375999318894302`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8784347246560443`", ",", "0.9069568474488624`", ",", 
         "0.5375981721904302`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9424236634409712`", ",", "0.28225912444034507`", ",", 
         "0.6325551028215884`", ",", "0.48489620574628856`", ",", 
         "0.9544674274304331`", ",", "0.7743969419495247`", ",", 
         "0.634668413121122`", ",", "0.028147452975450248`", ",", 
         "0.8120331634728785`", ",", "0.5060200009791913`", ",", 
         "0.2929967518792778`", ",", "0.7649585330776562`", ",", 
         "0.24299244756287974`", ",", "0.31575195674504486`", ",", 
         "0.10179613530704672`", ",", "0.19251385135006627`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9914548033896923`", ",", "0.0747900107594375`", ",", 
         "0.18588377073902426`", ",", "0.8391941974215867`"}], "}"}], ",", 
       "0.7976948102007493`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.19635528610339312`", ",", "0.27892692329016183`", ",", 
         "0.30159602523115653`", ",", "0.8552711467597781`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9140961616630481`", ",", "0.6463718204685733`", ",", 
         "0.816699819484868`", ",", "0.900803719329345`", ",", 
         "0.1396992197135233`", ",", "0.011703407347451332`", ",", 
         "0.7885523665094177`", ",", "0.08877055585646657`", ",", 
         "0.633679218734332`", ",", "0.7187066554681735`", ",", 
         "0.023593833431761538`", ",", "0.8457781082935868`", ",", 
         "0.31792726198928706`", ",", "0.6169105201611268`", ",", 
         "0.8310799820816953`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8543233049038945`", ",", "0.24313725122984958`", ",", 
         "0.43102674942210256`", ",", "0.9918857846601086`", ",", 
         "0.05662849470314522`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.04678196512645646`", ",", "0.1520998261319407`", ",", 
       "0.690289759428952`", ",", "0.20135734794336713`", ",", 
       "0.1326858034634084`", ",", "0.5057280056633674`", ",", 
       "0.8735899399440841`", ",", "0.3005536286140221`", ",", 
       "0.9929865837498851`", ",", "0.494024598315916`", ",", 
       "0.08503757343466628`", ",", "0.21178307275755553`", ",", 
       "0.35930736501555316`", ",", "0.7753179428477425`", ",", 
       "0.061443740002904736`"}], "}"}], ",", 
     RowBox[{"-", "789.1124267201188`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.3660049644639687`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.04138010302626606`", ",", "0.1584074226866157`", ",", 
         "0.23036375792120947`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5116816595600742`", ",", "0.7982428517964165`", ",", 
         "0.7273806732645132`", ",", "0.23847797326110093`", ",", 
         "0.455053164856929`", ",", "0.75146088666996`", ",", 
         "0.5752808471325724`", ",", "0.5481882138321489`", ",", 
         "0.25369581691356186`", ",", "0.6187750832065516`", ",", 
         "0.0695528414692051`", ",", "0.6745982738880649`", ",", 
         "0.9531421882995398`", ",", "0.6257884994566665`", ",", 
         "0.5755282431532891`", ",", "0.5895607004533986`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7413591155419842`", ",", "0.2664811344411134`", ",", 
         "0.8002103003055466`", ",", "0.5281169604504938`"}], "}"}], ",", 
       "0.37535415107801556`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2251010314148473`", ",", "0.6418028776189308`", ",", 
         "0.2977532025292844`", ",", "0.8636724915179413`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4268581796184308`", ",", "0.9144222043544178`", ",", 
         "0.059275229268183474`", ",", "0.40861932666101236`", ",", 
         "0.6753972929484708`", ",", "0.3391413572218453`", ",", 
         "0.5110870154360345`", ",", "0.15492350974745053`", ",", 
         "0.056622209741919186`", ",", "0.2695885157526402`", ",", 
         "0.8364887415479696`", ",", "0.20178132144791078`", ",", 
         "0.4308337102852527`", ",", "0.6940602725993511`", ",", 
         "0.246928041094571`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.46042220590592653`", ",", "0.16435257584413931`", ",", 
         "0.8938499722938045`", ",", "0.7188110806440772`", ",", 
         "0.085068054827911`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.939251544429292`", ",", "0.25204709467487363`", ",", 
       "0.4210578781147927`", ",", "0.22139556330996965`", ",", 
       "0.5123933648108612`", ",", "0.3376248903204559`", ",", 
       "0.36178264884660927`", ",", "0.8127762366489573`", ",", 
       "0.8369960718623903`", ",", "0.9984835330986106`", ",", 
       "0.8506956334105747`", ",", "0.6578527269015068`", ",", 
       "0.7803738621204712`", ",", "0.7288950173459704`", ",", 
       "0.014206891862605058`"}], "}"}], ",", 
     RowBox[{"-", "918.0724490115704`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.456071405453596`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3495401518352185`", ",", "0.03483474474661929`", ",", 
         "0.767278850768034`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9956491995476695`", ",", "0.1851875759910792`", ",", 
         "0.14098477245281477`", ",", "0.04846777012395691`", ",", 
         "0.9105811447197585`", ",", "0.2459360315617872`", ",", 
         "0.8889376777779412`", ",", "0.6274098920091642`", ",", 
         "0.6891855814097888`", ",", "0.733542666750926`", ",", 
         "0.5513127874574852`", ",", "0.2656272431625549`", ",", 
         "0.8764093447608315`", ",", "0.8965465948885356`", ",", 
         "0.5528292543588746`", ",", "0.41493160975198023`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.21855661785932481`", ",", "0.11617273276806447`", ",", 
         "0.8239342370129042`", ",", "0.4007247178893752`"}], "}"}], ",", 
       "0.7624852124057289`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7666325809328459`", ",", "0.7890994922662851`", ",", 
         "0.6334458671213411`", ",", "0.7668360128580594`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5814450049417668`", ",", "0.6481147198134702`", ",", 
         "0.5849780969973842`", ",", "0.8562548681383009`", ",", 
         "0.33550897337997954`", ",", "0.759177042035529`", ",", 
         "0.95756820498822`", ",", "0.1670692867285121`", ",", 
         "0.6019663066290535`", ",", "0.2078642545780438`", ",", 
         "0.6919409618256651`", ",", "0.2906599419676805`", ",", 
         "0.7054197117405179`", ",", "0.655035000219169`", ",", 
         "0.2770093520736849`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.07210332410835572`", ",", "0.5892469789724534`", ",", 
         "0.8311007632062648`", ",", "0.8762846341843097`", ",", 
         "0.3096181117026269`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "4"}], "}"}]}], "}"}], ",", 
       "0.8226143980396075`", ",", "0.04200127093997978`", ",", 
       "0.24283876706296856`", ",", "0.5427820988445675`", ",", 
       "0.24116939309784066`", ",", "0.39388655112650955`", ",", 
       "0.6578606700655844`", ",", "0.6865272307062666`", ",", 
       "0.905660419717861`", ",", "0.6347095090909805`", ",", 
       "0.7002924650773643`", ",", "0.5194579439777545`", ",", 
       "0.30369411308880756`", ",", "0.4268452545129367`", ",", 
       "0.008351503251699173`"}], "}"}], ",", 
     RowBox[{"-", "1157.8398621206532`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.22879800201007397`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5982744013482897`", ",", "0.7718102542937676`", ",", 
         "0.7313421511780143`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.15669467790171823`", ",", "0.00902742237583634`", ",", 
         "0.9407094910875028`", ",", "0.8550575169937046`", ",", 
         "0.8470765661990913`", ",", "0.18641302433622892`", ",", 
         "0.898708220147523`", ",", "0.612218749930736`", ",", 
         "0.3042944673545238`", ",", "0.9452436312383883`", ",", 
         "0.5048216690210134`", ",", "0.9543580798651518`", ",", 
         "0.6177672366482573`", ",", "0.03958321152052718`", ",", 
         "0.870112159930033`", ",", "0.25406561478778744`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.09830929267050273`", ",", "0.7358890984317196`", ",", 
         "0.4432669054170963`", ",", "0.24571411153608827`"}], "}"}], ",", 
       "0.8695112906604288`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.13761469708342988`", ",", "0.6714566511233288`", ",", 
         "0.514371960358074`", ",", "0.7128166127587106`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.12858727470759354`", ",", "0.730747160035826`", ",", 
         "0.6593144433643694`", ",", "0.8657400465596192`", ",", 
         "0.9421742503713646`", ",", "0.8320389398883029`", ",", 
         "0.04709569343363331`", ",", "0.5614455792050954`", ",", 
         "0.9969306191329763`", ",", "0.32721727086728947`", ",", 
         "0.09273761356848159`", ",", "0.9436783425568381`", ",", 
         "0.9573474076124492`", ",", "0.4571051109372565`", ",", 
         "0.8386719987806941`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8453690498863354`", ",", "0.22145830918072956`", ",", 
         "0.01383820552016017`", ",", "0.5929578872446059`", ",", 
         "0.9758577592259067`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "4"}], "}"}]}], "}"}], ",", 
       "0.08384361209729968`", ",", "0.3423815543968315`", ",", 
       "0.07858592688653192`", ",", "0.2630411464671961`", ",", 
       "0.9552563373897062`", ",", "0.6116343943610055`", ",", 
       "0.41927148352216254`", ",", "0.3973010999075769`", ",", 
       "0.01308208701834153`", ",", "0.7795954544727026`", ",", 
       "0.37217579008852925`", ",", "0.8358555207024816`", ",", 
       "0.016151467885365194`", ",", "0.4523781836054132`", ",", 
       "0.27943817652004765`"}], "}"}], ",", 
     RowBox[{"-", "334.75443692306686`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.505942346378291*^9, 3.505942387454719*^9, 3.505942458790118*^9, {
   3.506003774337459*^9, 3.50600379856223*^9}, 3.522541927818124*^9, 
   3.5225446558189*^9, 3.522544696052761*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["DQfuncDKappa test vectors", "Subsubsection",
 CellChangeTimes->{{3.505673737120636*^9, 3.505673743138568*^9}, {
  3.505766974004909*^9, 3.505766975387628*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "dqfuncdkappa", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dqfuncdkappa", "[", 
   RowBox[{
   "\[Kappa]_", ",", " ", "log\[Alpha]_", ",", " ", "\[Tau]_", ",", " ", 
    "\[Gamma]_", ",", " ", "\[Rho]_", ",", " ", "log\[Lambda]_", ",", " ", 
    "pz_", ",", " ", "priorz_", ",", " ", "d_", ",", " ", "plog\[Alpha]_", 
    ",", " ", "p\[Tau]_", ",", " ", "p\[Gamma]_", ",", " ", "p\[Kappa]_", ",",
     " ", "p\[Rho]_", ",", " ", "plog\[Lambda]_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"qfunc", "[", 
      RowBox[{
      "\[Kappa]1", ",", "log\[Alpha]", ",", " ", "\[Tau]", ",", " ", 
       "\[Gamma]", ",", " ", "\[Rho]", ",", " ", "log\[Lambda]", ",", " ", 
       "pz", ",", " ", "priorz", ",", " ", "d", ",", " ", "plog\[Alpha]", ",",
        " ", "p\[Tau]", ",", " ", "p\[Gamma]", ",", " ", "p\[Kappa]", ",", 
       " ", "p\[Rho]", ",", " ", "plog\[Lambda]"}], " ", "]"}], ",", " ", 
     "\[Kappa]1"}], "]"}], " ", "/.", 
   RowBox[{"\[Kappa]1", " ", "\[Rule]", " ", "\[Kappa]"}]}]}]}], "Input",
 CellChangeTimes->{{3.5056944305518713`*^9, 3.505694444058676*^9}, {
  3.5057604526719418`*^9, 3.505760553899432*^9}, {3.505766175548167*^9, 
  3.505766201826927*^9}, {3.50576698016413*^9, 3.505767015625113*^9}, {
  3.50600468024791*^9, 3.506004721901828*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nworkers", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nworkers", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nimages", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nimages", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nratings", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nratings", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"!", " ", 
             RowBox[{"ListQ", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
            RowBox[{"!", " ", 
             RowBox[{"IntegerQ", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
         RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
      " ", "/@", " ", "#"}], ",", " ", 
     RowBox[{"dqfuncdkappa", "[", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", "7", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "8", "]"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "+", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{"1", "+", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "&"}], " ", "/@", " ", 
        RowBox[{"#", "[", 
         RowBox[{"[", "9", "]"}], "]"}]}], ",", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "10", "]"}], "]"}]}], "]"}]}], "]"}], ",", " ", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "11", "]"}], "]"}]}], "]"}]}], "]"}], ",", 
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "12", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "13", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "14", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "15", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "16", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "17", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "18", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "19", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "20", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "21", "]"}], "]"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "22", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "23", "]"}], "]"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "24", "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], 
    "}"}], "&"}], "/@", "\[IndentingNewLine]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nimages"}], " ", "}"}]}], 
       "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "}"}]}], "]"}], ",", 
        " ", 
        RowBox[{"{", " ", 
         RowBox[{"k", ",", " ", "1", ",", " ", "nworkers"}], "}"}]}], "]"}], 
      ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", 
          RowBox[{"nlabels", " ", "-", " ", "1"}]}], "}"}]}], "]"}], ",", " ",
       "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nworkers"}], " ", "}"}]}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "nimages"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nworkers", " ", "-", " ", "1"}]}], "]"}], ",", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nimages", " ", "-", " ", "1"}]}], "]"}], ",", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], "}"}], ",", 
        " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nratings"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", " ", 
     RowBox[{"foo", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.504016424813343*^9, 3.504016580297758*^9}, {
   3.504018269599441*^9, 3.504018279219314*^9}, {3.504018359153508*^9, 
   3.504018387475568*^9}, {3.5040184327040863`*^9, 3.504018509500141*^9}, {
   3.504018861653284*^9, 3.504018920277594*^9}, {3.504019049785894*^9, 
   3.504019065803638*^9}, 3.504019184180941*^9, {3.504059801963703*^9, 
   3.504059813764331*^9}, 3.5040599982883453`*^9, {3.504060100407703*^9, 
   3.504060104803857*^9}, 3.504060440796597*^9, {3.504060503267675*^9, 
   3.504060525182757*^9}, {3.50456047953319*^9, 3.504560681387557*^9}, {
   3.504577463729417*^9, 3.504577464011519*^9}, {3.504577589051256*^9, 
   3.504577590132493*^9}, {3.504577632742776*^9, 3.5045776330605373`*^9}, {
   3.504740502012248*^9, 3.504740503922497*^9}, {3.504740727150861*^9, 
   3.504740736352736*^9}, 3.504876469621917*^9, {3.5055962008030443`*^9, 
   3.505596275077857*^9}, {3.505596319880871*^9, 3.505596373226162*^9}, {
   3.505596415459552*^9, 3.505596505766666*^9}, {3.50559654044011*^9, 
   3.505596540734797*^9}, 3.505672802683957*^9, {3.505673770320092*^9, 
   3.505673773863884*^9}, 3.505675171786241*^9, {3.5056944622614517`*^9, 
   3.5056944644024887`*^9}, {3.505694519940433*^9, 3.5056945200345287`*^9}, {
   3.50576056070961*^9, 3.505760572156438*^9}, {3.505760765195361*^9, 
   3.5057607660730953`*^9}, {3.505766224935194*^9, 3.505766256913796*^9}, {
   3.5057670283279552`*^9, 3.505767034272224*^9}, 3.505767117987874*^9, {
   3.5060047423326187`*^9, 3.506004749419078*^9}, 3.506005161369388*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.3597777199412577`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.765347666079975`", ",", "0.015647256452885245`", ",", 
         "0.9172216669047392`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.904685174310356`", ",", "0.7244064766392599`", ",", 
         "0.12785330458918653`", ",", "0.4047134984765284`", ",", 
         "0.8522986744549346`", ",", "0.3804803042573341`", ",", 
         "0.3379699116927253`", ",", "0.14961698499151965`", ",", 
         "0.5104327825867198`", ",", "0.6953119851692523`", ",", 
         "0.36182030653674774`", ",", "0.11759567109331037`", ",", 
         "0.11243970922655647`", ",", "0.030840292365930548`", ",", 
         "0.11534969622239007`", ",", "0.5540878524482856`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.053888372646936744`", ",", "0.6940999377144256`", ",", 
         "0.35798598857466407`", ",", "0.27711283902990996`"}], "}"}], ",", 
       "0.6941106527056791`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9287522716344506`", ",", "0.3423387321217788`", ",", 
         "0.35989117212517086`", ",", "0.7894254783953231`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.20434579499519068`", ",", "0.21448542753259225`", ",", 
         "0.9551776736486425`", ",", "0.9371268039403885`", ",", 
         "0.8238654907378565`", ",", "0.876515515839867`", ",", 
         "0.8055606886571228`", ",", "0.42669402135366874`", ",", 
         "0.1285535055686043`", ",", "0.5146952093031193`", ",", 
         "0.6879650175638125`", ",", "0.3142543121271123`", ",", 
         "0.09771321320267375`", ",", "0.3993455130807292`", ",", 
         "0.13387716511552683`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.26036593948017556`", ",", "0.40361327548824816`", ",", 
         "0.04135952450606513`", ",", "0.8567643260856169`", ",", 
         "0.5662552867744964`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "4"}], "}"}]}], "}"}], ",", 
       "0.47486100385379754`", ",", "0.6990207923842864`", ",", 
       "0.496873153960446`", ",", "0.7768298083791734`", ",", 
       "0.27051520885860686`", ",", "0.4845353648516941`", ",", 
       "0.5416954803118036`", ",", "0.8397030044387849`", ",", 
       "0.44664971812075027`", ",", "0.608019849011827`", ",", 
       "0.7361347916546808`", ",", "0.4130089830851161`", ",", 
       "0.318096212552146`", ",", "0.09332463970870784`", ",", 
       "0.0481697740908683`"}], "}"}], ",", "4.950963598424277`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0987546709580038`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.22038299934947225`", ",", "0.6939791266279787`", ",", 
         "0.9142926089753415`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8383887314778282`", ",", "0.8167697238612242`", ",", 
         "0.6526196021219135`", ",", "0.05752828288972459`", ",", 
         "0.2721334447033318`", ",", "0.34190872000742656`", ",", 
         "0.9535988097376272`", ",", "0.5606551289292786`", ",", 
         "0.4953036363241584`", ",", "0.07139351114881969`", ",", 
         "0.46906344488593316`", ",", "0.018959648617474994`", ",", 
         "0.6556006318853735`", ",", "0.6247437930280694`", ",", 
         "0.8610435958741061`", ",", "0.28282485696279425`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.24259164880025744`", ",", "0.3066475804759234`", ",", 
         "0.7677189561653982`", ",", "0.23465508287192594`"}], "}"}], ",", 
       "0.14383697784225363`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.08626458112645116`", ",", "0.07373982953741953`", ",", 
         "0.3203624738965845`", ",", "0.3054482463644254`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.26949485726522704`", ",", "0.421120227415506`", ",", 
         "0.2628341910068599`", ",", "0.0333148016610936`", ",", 
         "0.9275861372578005`", ",", "0.4675214176778788`", ",", 
         "0.7021790620775813`", ",", "0.5380111653369352`", ",", 
         "0.8561926261089808`", ",", "0.9984579727919457`", ",", 
         "0.6832194134601064`", ",", "0.8824105334515616`", ",", 
         "0.23144883308091144`", ",", "0.13741437691783961`", ",", 
         "0.4003945564973121`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6398188846513042`", ",", "0.924801252604988`", ",", 
         "0.36969542075244144`", ",", "0.16573947362538616`", ",", 
         "0.4959819068090506`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.8385366714785368`", ",", "0.29595559121502185`", ",", 
       "0.8453769997288016`", ",", "0.1905336604446252`", ",", 
       "0.5690418142133098`", ",", "0.8748353637995159`", ",", 
       "0.5825428087219418`", ",", "0.1572188587835316`", ",", 
       "0.6414556769555093`", ",", "0.40731394612163707`", ",", 
       "0.8803637466443605`", ",", "0.6192076934465964`", ",", 
       "0.7852630508465285`", ",", "0.4088559733296914`", ",", 
       "0.1971443331842541`"}], "}"}], ",", "4.217871081106742`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7367971599950347`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.553814217765617`", ",", "0.2714415964118518`", ",", 
         "0.796749776686942`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.09697827534373052`", ",", "0.629012965160629`", ",", 
         "0.9017461756594104`", ",", "0.6310103030615558`", ",", 
         "0.60099636853468`", ",", "0.7904762936820922`", ",", 
         "0.6057905844443885`", ",", "0.7856333033327542`", ",", 
         "0.41046270809005475`", ",", "0.22143447946878236`", ",", 
         "0.7309552206448726`", ",", "0.2030904946108124`", ",", 
         "0.25324384930652316`", ",", "0.579978802513273`", ",", 
         "0.32364127452323554`", ",", "0.322726747966452`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6340361558599268`", ",", "0.7947157516667447`", ",", 
         "0.9147853011935442`", ",", "0.12558241478219792`"}], "}"}], ",", 
       "0.897238995864892`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2409015339011276`", ",", "0.6433437047816923`", ",", 
         "0.3288326380952559`", ",", "0.8002607205211615`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6118885687404986`", ",", "0.7415975291222819`", ",", 
         "0.6978223350337001`", ",", "0.19926435198648157`", ",", 
         "0.8214122750584064`", ",", "0.13580694467789342`", ",", 
         "0.9121890317009459`", ",", "0.7888016438964268`", ",", 
         "0.599977795589624`", ",", "0.4048517240330208`", ",", 
         "0.7090985370901335`", ",", "0.5355577945899037`", ",", 
         "0.019998993076350953`", ",", "0.08121044950978523`", ",", 
         "0.38637178912368153`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9015216387299769`", ",", "0.22528324140960632`", ",", 
         "0.1664251483162411`", ",", "0.26078937434148364`", ",", 
         "0.004282642865084868`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.9843817075084788`", ",", "0.5230814435345488`", ",", 
       "0.9319567362462277`", ",", "0.20402192234392336`", ",", 
       "0.3724931387679801`", ",", "0.7814839144122668`", ",", 
       "0.2341344012125276`", ",", "0.004757570357441792`", ",", 
       "0.5510808637095738`", ",", "0.6456769697343734`", ",", 
       "0.32194536951158165`", ",", "0.21595592646101497`", ",", 
       "0.9511030681199497`", ",", "0.24082524570135266`", ",", 
       "0.6128468324214481`"}], "}"}], ",", 
     RowBox[{"-", "9.502548108354098`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.6803981318711113`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9311040750435987`", ",", "0.15961479619156743`", ",", 
         "0.2264750432977666`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7788764931411344`", ",", "0.7058208336339924`", ",", 
         "0.9931896478753264`", ",", "0.9656856689562829`", ",", 
         "0.7745938502760495`", ",", "0.7214391261255136`", ",", 
         "0.47010820434077755`", ",", "0.033728932710055254`", ",", 
         "0.5705719279321262`", ",", "0.3489459873575335`", ",", 
         "0.6886242899285107`", ",", "0.7995945314975277`", ",", 
         "0.5658143575746843`", ",", "0.7978651236479598`", ",", 
         "0.04294732019413727`", ",", "0.477649161985946`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.34985843111366943`", ",", "0.8467620555280101`", ",", 
         "0.8021220744927846`", ",", "0.8648023295644979`"}], "}"}], ",", 
       "0.6694602992425581`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9156579804844114`", ",", "0.6425072783012172`", ",", 
         "0.6383272862667312`", ",", "0.8905838061014237`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.209837146850419`", ",", "0.6493176304258909`", ",", 
         "0.6726416173104482`", ",", "0.11598995582537414`", ",", 
         "0.4883980207249053`", ",", "0.17920942608511328`", ",", 
         "0.6389126846003931`", ",", "0.545418027893248`", ",", 
         "0.13945203336737175`", ",", "0.4905851361566026`", ",", 
         "0.8393181531028654`", ",", "0.9796036703185635`", ",", 
         "0.34158690971941197`", ",", "0.4476378159624653`", ",", 
         "0.3616689911169194`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6297452392048941`", ",", "0.4948248541914018`", ",", 
         "0.6455157414696807`", ",", "0.49686666155242154`", ",", 
         "0.960284939962336`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.5791668737069904`", ",", "0.0030084631684635112`", ",", 
       "0.8585393752856904`", ",", "0.06970113386091233`", ",", 
       "0.36932972685657145`", ",", "0.3536908327425727`", ",", 
       "0.18589775797524205`", ",", "0.9537111780355382`", ",", 
       "0.8809317061316662`", ",", "0.17448140665745937`", ",", 
       "0.546985073374849`", ",", "0.40829315014229023`", ",", 
       "0.7414796727642944`", ",", "0.6838962705008568`", ",", 
       "0.7076669202719836`"}], "}"}], ",", 
     RowBox[{"-", "2.9586999510319116`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.4286894798237267`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.39989276304488247`", ",", "0.23625845453839148`", ",", 
         "0.3459979291550643`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7989442406188325`", ",", "0.9050679088534807`", ",", 
         "0.5907427130687107`", ",", "0.8491312676026427`", ",", 
         "0.8386593006564965`", ",", "0.3259010351464902`", ",", 
         "0.5877342499002473`", ",", "0.9905918923169523`", ",", 
         "0.7689581667955842`", ",", "0.9565713082899188`", ",", 
         "0.2340434171576746`", ",", "0.8046941343417103`", ",", 
         "0.815246988760046`", ",", "0.07563960215825259`", ",", 
         "0.059562010500215236`", ",", "0.25770906096686125`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4069538386177558`", ",", "0.33415992939395817`", ",", 
         "0.37566573999935843`", ",", "0.5500421406948776`"}], "}"}], ",", 
       "0.9782643587940291`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9342671663490757`", ",", "0.13940728546096698`", ",", 
         "0.20404421153981336`", ",", "0.17932011817519655`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.029199257495595096`", ",", "0.5486645723922562`", ",", 
         "0.35491294393717066`", ",", "0.34066081751870003`", ",", 
         "0.7032982223491049`", ",", "0.9609303224920089`", ",", 
         "0.3643210516202183`", ",", "0.5717026507231159`", ",", 
         "0.7467269140591861`", ",", "0.7268869053343343`", ",", 
         "0.559626917278508`", ",", "0.7564556619630698`", ",", 
         "0.6710873119009335`", ",", "0.667324894834119`", ",", 
         "0.30191785631164675`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.349501823345314`", ",", "0.33692738250697535`", ",", 
         "0.2916591548347606`", ",", "0.7518757156167691`", ",", 
         "0.37123746455128487`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "4"}], "}"}]}], "}"}], ",", 
       "0.40266021615789965`", ",", "0.15225186937379367`", ",", 
       "0.5478315040769558`", ",", "0.19191734637608832`", ",", 
       "0.37346095866230455`", ",", "0.6035872969815375`", ",", 
       "0.1929185601397851`", ",", "0.8512565288573883`", ",", 
       "0.6701627363131997`", ",", "0.6426569744895285`", ",", 
       "0.8285975085195668`", ",", "0.27955387813427246`", ",", 
       "0.9234358222540135`", ",", "0.9157700691551942`", ",", 
       "0.2689705912410588`"}], "}"}], ",", "3.242680928650828`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.5230982161712027`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2523485103530799`", ",", "0.24844517432107507`", ",", 
         "0.9670527349294121`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.17359639282588865`", ",", "0.9154211278461046`", ",", 
         "0.9567860194863145`", ",", "0.21517701931264296`", ",", 
         "0.8023589282746038`", ",", "0.5127609116882049`", ",", 
         "0.8045341501125207`", ",", "0.6673455152356872`", ",", 
         "0.6104415818985155`", ",", "0.13929995302590042`", ",", 
         "0.20094685313098332`", ",", "0.4744269550959021`", ",", 
         "0.7591850530411272`", ",", "0.46913721671270076`", ",", 
         "0.5582898786414549`", ",", "0.6458294465763353`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4796311749068547`", ",", "0.5457013944586873`", ",", 
         "0.6425198094862606`", ",", "0.3768588553352765`"}], "}"}], ",", 
       "0.956532958735652`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.29335288410560734`", ",", "0.39407463516518554`", ",", 
         "0.4098061204058644`", ",", "0.7829365659097633`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.37793175625950276`", ",", "0.4372886156788711`", ",", 
         "0.19462910109322146`", ",", "0.9805776376351596`", ",", 
         "0.8651708445712978`", ",", "0.6327544655663504`", ",", 
         "0.5272835858575342`", ",", "0.37013605573664415`", ",", 
         "0.7258708915453974`", ",", "0.431807612435367`", ",", 
         "0.052856630761632134`", ",", "0.6109510026955169`", ",", 
         "0.2567336748326966`", ",", "0.8735177337939123`", ",", 
         "0.4070271841852968`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.1313198277886623`", ",", "0.7110322803740093`", ",", 
         "0.23099792430765162`", ",", "0.030168328850020337`", ",", 
         "0.1747868690530103`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "3"}], "}"}]}], "}"}], ",", 
       "0.41767939626840195`", ",", "0.836923289142466`", ",", 
       "0.6203622084441559`", ",", "0.391850303143247`", ",", 
       "0.03974764000889923`", ",", "0.39963467346359494`", ",", 
       "0.42573310735093445`", ",", "0.4112726655080874`", ",", 
       "0.17457679543760143`", ",", "0.7668802078972445`", ",", 
       "0.8984495214934002`", ",", "0.04113660977144325`", ",", 
       "0.44870590389220405`", ",", "0.3350725954618775`", ",", 
       "0.8455928907317681`"}], "}"}], ",", "221.22839384639525`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.43018560707592624`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.19197222905950748`", ",", "0.4615548616679653`", ",", 
         "0.43856570654647126`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.29886577928726393`", ",", "0.48093994868549816`", ",", 
         "0.23055693736031366`", ",", "0.40839737769645096`", ",", 
         "0.12407891023425364`", ",", "0.06326055241709619`", ",", 
         "0.3936336482178476`", ",", "0.788035169252295`", ",", 
         "0.7322286070910067`", ",", "0.02351291240819696`", ",", 
         "0.9939989747542527`", ",", "0.36230206190136055`", ",", 
         "0.32095594158291935`", ",", "0.8489361169705956`", ",", 
         "0.22711876685700808`", ",", "0.4638525404079603`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.27981933181147606`", ",", "0.40023021307839146`", ",", 
         "0.8920461713951305`", ",", "0.6182596496761922`"}], "}"}], ",", 
       "0.8496337247355498`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.20825798401888398`", ",", "0.43049130972716526`", ",", 
         "0.17969394312972092`", ",", "0.5507679454482859`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7273180353333858`", ",", "0.1999343723668516`", ",", 
         "0.77129656543327`", ",", "0.42668903521403223`", ",", 
         "0.6640574829162896`", ",", "0.806300724149004`", ",", 
         "0.983261396180975`", ",", "0.6944604281230256`", ",", 
         "0.6405445705080927`", ",", "0.8123017493947513`", ",", 
         "0.6209593342796145`", ",", "0.3735044865401062`", ",", 
         "0.7916084535374972`", ",", "0.5851829825377433`", ",", 
         "0.15710679387165416`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.09368515472863012`", ",", "0.3913782404591057`", ",", 
         "0.6931368111426127`", ",", "0.538847144195462`", ",", 
         "0.2440514299930803`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.1831202564402217`", ",", "0.2626455014154475`", ",", 
       "0.359153201065741`", ",", "0.6932834845447945`", ",", 
       "0.4558022211068359`", ",", "0.0627111290485959`", ",", 
       "0.587856635632471`", ",", "0.2665944493307622`", ",", 
       "0.7917447381905462`", ",", "0.2564104048995919`", ",", 
       "0.6045952394514961`", ",", "0.5721340212077367`", ",", 
       "0.15120016768245353`", ",", "0.4441086555048406`", ",", 
       "0.9836359051718816`"}], "}"}], ",", 
     RowBox[{"-", "5.385650958682784`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.1986295346676305`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3595917141449564`", ",", "0.8589256729670973`", ",", 
         "0.8265291113002274`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.10494437993900038`", ",", "0.9682134736858506`", ",", 
         "0.16578886182448452`", ",", "0.28768196710476546`", ",", 
         "0.86089294994592`", ",", "0.785093217245629`", ",", 
         "0.9031433604090371`", ",", "0.9285287660390245`", ",", 
         "0.16760946540112565`", ",", "0.3292909961387931`", ",", 
         "0.8404322313604411`", ",", "0.3406721304065534`", ",", 
         "0.9010150160703634`", ",", "0.5375462579482468`", ",", 
         "0.5840218264608492`", ",", "0.7360768909550574`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.32888099486262673`", ",", "0.3863460902657933`", ",", 
         "0.1399131709560087`", ",", "0.7524409857831759`"}], "}"}], ",", 
       "0.1302514601949962`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.026754376120836934`", ",", "0.2809874979889114`", ",", 
         "0.9259118744829484`", ",", "0.02530708025599582`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.05854090243498625`", ",", "0.1151986361644269`", ",", 
         "0.638229907378183`", ",", "0.16441413031007573`", ",", 
         "0.27344768518935725`", ",", "0.21205527575538985`", ",", 
         "0.7097011413391585`", ",", "0.9968046649089501`", ",", 
         "0.9441566890505642`", ",", "0.3716230443949487`", ",", 
         "0.36902901093260515`", ",", "0.09578964883858669`", ",", 
         "0.4066104311023173`", ",", "0.7876012179340994`", ",", 
         "0.6329521199775477`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.76690865397596`", ",", "0.020264340836523988`", ",", 
         "0.6476880469780908`", ",", "0.8805111341943719`", ",", 
         "0.6366571937809637`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.9935099647156871`", ",", "0.36670054898917936`", ",", 
       "0.9545992597114235`", ",", "0.6113501135249679`", ",", 
       "0.9349690622807008`", ",", "0.2515019128247525`", ",", 
       "0.3163693523332405`", ",", "0.4469359832148922`", ",", 
       "0.6615213770913435`", ",", "0.039446637069362606`", ",", 
       "0.606668210994082`", ",", "0.4501313183059421`", ",", 
       "0.7173646880407794`", ",", "0.6678235926744139`", ",", 
       "0.23763920006147676`"}], "}"}], ",", "3.481983073533362`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.3543416694673554`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.31075425693846204`", ",", "0.8802223747403144`", ",", 
         "0.604687080083929`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5874330154913954`", ",", "0.2904899161019381`", ",", 
         "0.23253432776222366`", ",", "0.724175945889557`", ",", 
         "0.9507758217104316`", ",", "0.296979951386251`", ",", 
         "0.8658337787730443`", ",", "0.7695766861781336`", ",", 
         "0.3394257081854637`", ",", "0.3620108891055502`", ",", 
         "0.6143318659482919`", ",", "0.4532073338448931`", ",", 
         "0.8924897249705714`", ",", "0.7004895120142067`", ",", 
         "0.5748852288789292`", ",", "0.8465391228508111`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.44235840666462933`", ",", "0.9831248239734274`", ",", 
         "0.9070616362045154`", ",", "0.6088999227893344`"}], "}"}], ",", 
       "0.08801673719727393`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6723705670349652`", ",", "0.026839261464200924`", ",", 
         "0.004212842705405378`", ",", "0.5005837217058785`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3818806509330272`", ",", "0.7943049337019773`", ",", 
         "0.2800368968158483`", ",", "0.5498078999954469`", ",", 
         "0.08490069954677622`", ",", "0.928471154928933`", ",", 
         "0.5104602106377147`", ",", "0.2103821918099832`", ",", 
         "0.722889810441226`", ",", "0.3141392889806411`", ",", 
         "0.05725287679282162`", ",", "0.31789246683941175`", ",", 
         "0.02240029842701933`", ",", "0.7392540601017118`", ",", 
         "0.21071375394201047`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8755340601747824`", ",", "0.039275474453592`", ",", 
         "0.8321924238971964`", ",", "0.6018138311526761`", ",", 
         "0.7875173229775084`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "3"}], "}"}]}], "}"}], ",", 
       "0.3669049074186267`", ",", "0.8053531624329955`", ",", 
       "0.5976009884472707`", ",", "0.28693360127163`", ",", 
       "0.9850242564855995`", ",", "0.011048228731018255`", ",", 
       "0.3175640916314224`", ",", "0.737125701276183`", ",", 
       "0.9001235569388233`", ",", "0.08257707380208533`", ",", 
       "0.8071038809937077`", ",", "0.5267435094661999`", ",", 
       "0.17723374649759727`", ",", "0.7684377848214443`", ",", 
       "0.749851004200886`"}], "}"}], ",", "7.074122493536309`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.20885104262678816`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.15483344807057794`", ",", "0.029183724719732473`", ",", 
         "0.5391372502588756`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.33331698245200575`", ",", "0.11555797361698594`", ",", 
         "0.19699130082253605`", ",", "0.9373234191061995`", ",", 
         "0.5457996594744973`", ",", "0.7486530661983593`", ",", 
         "0.39163813838954054`", ",", "0.3397224306589288`", ",", 
         "0.2588660582028673`", ",", "0.7636288097127597`", ",", 
         "0.3805899096585223`", ",", "0.022158339027506427`", ",", 
         "0.5217403569266842`", ",", "0.8635052527739364`", ",", 
         "0.29801283585643695`", ",", "0.21505445803379875`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9949968474604843`", ",", "0.6862715062763391`", ",", 
         "0.5295750510349927`", ",", "0.4652034538329127`"}], "}"}], ",", 
       "0.7861458048336962`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5314380582057613`", ",", "0.5003913263152602`", ",", 
         "0.926066203574037`", ",", "0.4528288223816904`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4158800845887753`", ",", "0.30340002549272416`", ",", 
         "0.9887427844678376`", ",", "0.9070291629071932`", ",", 
         "0.6672270183904161`", ",", "0.9117618871031836`", ",", 
         "0.6490203538089087`", ",", "0.6481631047043258`", ",", 
         "0.9035982086776564`", ",", "0.5311719774446614`", ",", 
         "0.6268620147814022`", ",", "0.12642274777764162`", ",", 
         "0.04009295590371991`", ",", "0.2331591415882244`", ",", 
         "0.41180755674760355`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.13142590031715728`", ",", "0.3538214496273807`", ",", 
         "0.7035840905532317`", ",", "0.9466041029146909`", ",", 
         "0.3452800954834611`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "0"}], "}"}]}], "}"}], ",", 
       "0.8223833914216195`", ",", "0.20319276423797153`", ",", 
       "0.020537899340653816`", ",", "0.8924512731017706`", ",", 
       "0.4065033068328442`", ",", "0.8997927387452473`", ",", 
       "0.03179511487281628`", ",", "0.9854221101945776`", ",", 
       "0.7392762884424281`", ",", "0.9880308516420637`", ",", 
       "0.38277476106390756`", ",", "0.33725900549025173`", ",", 
       "0.8356780797647717`", ",", "0.45685887419740234`", ",", 
       "0.7559127462825053`"}], "}"}], ",", "1.6719201444393321`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.505673776362035*^9, 3.50567517241039*^9, 3.505694464797428*^9, 
   3.505694520370846*^9, {3.505760569191741*^9, 3.5057605727116957`*^9}, 
   3.5057607666477423`*^9, {3.5057662355899057`*^9, 3.50576625748481*^9}, 
   3.505766305360738*^9, 3.505767035316896*^9, 3.5057671183873997`*^9, 
   3.506004750562114*^9, 3.506005161876086*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["DQfuncDLogAlpha test vectors", "Subsubsection",
 CellChangeTimes->{{3.505673737120636*^9, 3.505673743138568*^9}, {
  3.506005367214827*^9, 3.506005367424184*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "makevararray", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"makevararray", "[", 
    RowBox[{"s_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ToExpression", "[", 
      RowBox[{"s", " ", "<>", " ", 
       RowBox[{"ToString", "[", "i", "]"}]}], "]"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"i", ",", " ", "1", ",", " ", "n"}], " ", "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "dqfuncdlogalpha", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dqfuncdlogalpha", "[", 
    RowBox[{
    "\[Kappa]_", ",", " ", "log\[Alpha]_", ",", " ", "\[Tau]_", ",", " ", 
     "\[Gamma]_", ",", " ", "\[Rho]_", ",", " ", "log\[Lambda]_", ",", " ", 
     "pz_", ",", " ", "priorz_", ",", " ", "d_", ",", " ", "plog\[Alpha]_", 
     ",", " ", "p\[Tau]_", ",", " ", "p\[Gamma]_", ",", " ", "p\[Kappa]_", 
     ",", " ", "p\[Rho]_", ",", " ", "plog\[Lambda]_"}], "]"}], " ", ":=", 
   " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "tmp", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"tmp", " ", "=", " ", 
       RowBox[{"makevararray", "[", 
        RowBox[{"\"\<log\[Alpha]\>\"", ",", " ", 
         RowBox[{"Length", "[", "log\[Alpha]", "]"}]}], "]"}]}], ";", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"qfunc", "[", 
          RowBox[{
          "\[Kappa]", ",", "tmp", ",", " ", "\[Tau]", ",", " ", "\[Gamma]", 
           ",", " ", "\[Rho]", ",", " ", "log\[Lambda]", ",", " ", "pz", ",", 
           " ", "priorz", ",", " ", "d", ",", " ", "plog\[Alpha]", ",", " ", 
           "p\[Tau]", ",", " ", "p\[Gamma]", ",", " ", "p\[Kappa]", ",", " ", 
           "p\[Rho]", ",", " ", "plog\[Lambda]"}], " ", "]"}], ",", " ", 
         RowBox[{"{", "tmp", "}"}]}], "]"}], " ", "/.", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"ToExpression", "[", 
           RowBox[{
            RowBox[{"ToString", "[", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "<>", " ", 
            "\"\< -> \>\"", " ", "<>", " ", 
            RowBox[{"ToString", "[", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], "&"}], " ", "/@", 
         RowBox[{"Transpose", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"makevararray", "[", 
             RowBox[{"\"\<log\[Alpha]\>\"", ",", " ", 
              RowBox[{"Length", "[", "log\[Alpha]", "]"}]}], "]"}], ",", " ", 
            "log\[Alpha]"}], "}"}], "]"}]}], ")"}]}]}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.5056944305518713`*^9, 3.505694444058676*^9}, {
  3.5057604526719418`*^9, 3.505760553899432*^9}, {3.505766175548167*^9, 
  3.505766201826927*^9}, {3.506005574713005*^9, 3.506005628706656*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nworkers", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nworkers", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nimages", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nimages", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nratings", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nratings", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"!", " ", 
             RowBox[{"ListQ", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
            RowBox[{"!", " ", 
             RowBox[{"IntegerQ", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
         RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
      " ", "/@", " ", "#"}], ",", " ", 
     RowBox[{"dqfuncdlogalpha", "[", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", "7", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "8", "]"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "+", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{"1", "+", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "&"}], " ", "/@", " ", 
        RowBox[{"#", "[", 
         RowBox[{"[", "9", "]"}], "]"}]}], ",", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "10", "]"}], "]"}]}], "]"}]}], "]"}], ",", " ", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "11", "]"}], "]"}]}], "]"}]}], "]"}], ",", 
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "12", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "13", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "14", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "15", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "16", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "17", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "18", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "19", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "20", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "21", "]"}], "]"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "22", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "23", "]"}], "]"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "24", "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], 
    "}"}], "&"}], "/@", "\[IndentingNewLine]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nimages"}], " ", "}"}]}], 
       "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "}"}]}], "]"}], ",", 
        " ", 
        RowBox[{"{", " ", 
         RowBox[{"k", ",", " ", "1", ",", " ", "nworkers"}], "}"}]}], "]"}], 
      ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", 
          RowBox[{"nlabels", " ", "-", " ", "1"}]}], "}"}]}], "]"}], ",", " ",
       "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nworkers"}], " ", "}"}]}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "nimages"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nworkers", " ", "-", " ", "1"}]}], "]"}], ",", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nimages", " ", "-", " ", "1"}]}], "]"}], ",", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], "}"}], ",", 
        " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nratings"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", " ", 
     RowBox[{"foo", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.504016424813343*^9, 3.504016580297758*^9}, {
   3.504018269599441*^9, 3.504018279219314*^9}, {3.504018359153508*^9, 
   3.504018387475568*^9}, {3.5040184327040863`*^9, 3.504018509500141*^9}, {
   3.504018861653284*^9, 3.504018920277594*^9}, {3.504019049785894*^9, 
   3.504019065803638*^9}, 3.504019184180941*^9, {3.504059801963703*^9, 
   3.504059813764331*^9}, 3.5040599982883453`*^9, {3.504060100407703*^9, 
   3.504060104803857*^9}, 3.504060440796597*^9, {3.504060503267675*^9, 
   3.504060525182757*^9}, {3.50456047953319*^9, 3.504560681387557*^9}, {
   3.504577463729417*^9, 3.504577464011519*^9}, {3.504577589051256*^9, 
   3.504577590132493*^9}, {3.504577632742776*^9, 3.5045776330605373`*^9}, {
   3.504740502012248*^9, 3.504740503922497*^9}, {3.504740727150861*^9, 
   3.504740736352736*^9}, 3.504876469621917*^9, {3.5055962008030443`*^9, 
   3.505596275077857*^9}, {3.505596319880871*^9, 3.505596373226162*^9}, {
   3.505596415459552*^9, 3.505596505766666*^9}, {3.50559654044011*^9, 
   3.505596540734797*^9}, 3.505672802683957*^9, {3.505673770320092*^9, 
   3.505673773863884*^9}, 3.505675171786241*^9, {3.5056944622614517`*^9, 
   3.5056944644024887`*^9}, {3.505694519940433*^9, 3.5056945200345287`*^9}, {
   3.50576056070961*^9, 3.505760572156438*^9}, {3.505760765195361*^9, 
   3.5057607660730953`*^9}, {3.505766224935194*^9, 3.505766256913796*^9}, {
   3.506005657007914*^9, 3.506005662676763*^9}, 3.5060057536206207`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.3914058749336565`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.48458965685637695`", ",", "0.674990911302413`", ",", 
         "0.0026835939848187445`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8918972339596261`", ",", "0.17132048644524006`", ",", 
         "0.6217695800760349`", ",", "0.4766307998446895`", ",", 
         "0.21841219873074083`", ",", "0.3707787924909316`", ",", 
         "0.3201951752891465`", ",", "0.06570854177891165`", ",", 
         "0.4928500974051333`", ",", "0.3687962075823286`", ",", 
         "0.893790017425533`", ",", "0.46759480166462825`", ",", 
         "0.20787679206850146`", ",", "0.8458686374361196`", ",", 
         "0.17777689319377468`", ",", "0.4117875425282238`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9333565975747384`", ",", "0.010742481657346613`", ",", 
         "0.04762942461820639`", ",", "0.4998501234452177`"}], "}"}], ",", 
       "0.541950722641082`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5261528248009697`", ",", "0.37263851331579345`", ",", 
         "0.4971665294603989`", ",", "0.650053488681456`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.35483233835572964`", ",", "0.7508689332397586`", ",", 
         "0.02053572961570943`", ",", "0.43164128995071516`", ",", 
         "0.984053545864798`", ",", "0.430673757950612`", ",", 
         "0.9548271878367978`", ",", "0.9387911925455819`", ",", 
         "0.6152573382824694`", ",", "0.536883740525079`", ",", 
         "0.4872323861721695`", ",", "0.7309144004770803`", ",", 
         "0.7693887008463498`", ",", "0.3591068473313044`", ",", 
         "0.0754448436439457`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7975578029023419`", ",", "0.7586462191890032`", ",", 
         "0.311477422713098`", ",", "0.575594720198728`", ",", 
         "0.2556070802612599`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "3"}], "}"}]}], "}"}], ",", 
       "0.2324933943880335`", ",", "0.9388389093973045`", ",", 
       "0.07842819073832913`", ",", "0.6055535915798039`", ",", 
       "0.8776610560323038`", ",", "0.18796997615754596`", ",", 
       "0.057892461122619705`", ",", "0.17391230162908877`", ",", 
       "0.8936075101675058`", ",", "0.7572962182069339`", ",", 
       "0.10306527328582192`", ",", "0.23512110908350695`", ",", 
       "0.27835017188503647`", ",", "0.22041247768185487`", ",", 
       "0.6158328871136524`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "46.63710096171574`"}], ",", 
       RowBox[{"-", "41.06507396837834`"}], ",", 
       RowBox[{"-", "6.587397754496753`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.5042067086064266`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5089614710386867`", ",", "0.8613056303505505`", ",", 
         "0.5403880434697067`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7066489057040847`", ",", "0.7503152518496835`", ",", 
         "0.5498282076374525`", ",", "0.9647933232709787`", ",", 
         "0.45104182544282484`", ",", "0.5178218574616501`", ",", 
         "0.610989298240148`", ",", "0.8863651325326495`", ",", 
         "0.845488233863021`", ",", "0.6401608014293462`", ",", 
         "0.42301932208260207`", ",", "0.8284726714100298`", ",", 
         "0.6715759322339322`", ",", "0.7465532912618403`", ",", 
         "0.6657231038756681`", ",", "0.7254073981242078`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4364548231504252`", ",", "0.46820311937680387`", ",", 
         "0.4453106261938133`", ",", "0.1095745110105555`"}], "}"}], ",", 
       "0.9322481145439986`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9592416483381172`", ",", "0.5840049958432628`", ",", 
         "0.5691864675408488`", ",", "0.22559920883991388`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.20892639648843364`", ",", "0.034176788205810285`", ",", 
         "0.6043931442698701`", ",", "0.774557383397089`", ",", 
         "0.6911045390267836`", ",", "0.4231874899656623`", ",", 
         "0.7180280117372206`", ",", "0.9290691495340682`", ",", 
         "0.05094373759743735`", ",", "0.00016816788306022422`", ",", 
         "0.8895553403271909`", ",", "0.25749321730013597`", ",", 
         "0.304390446335597`", ",", "0.33444506400739205`", ",", 
         "0.16414794220298295`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8210383941497107`", ",", "0.836187326958793`", ",", 
         "0.8891344378135788`", ",", "0.054573431192427455`", ",", 
         "0.8887902796057121`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "4"}], "}"}]}], "}"}], ",", 
       "0.876945678620676`", ",", "0.30512944197031594`", ",", 
       "0.48538696365157863`", ",", "0.6631910707657982`", ",", 
       "0.6680192821322423`", ",", "0.27095265376450567`", ",", 
       "0.8809938193817085`", ",", "0.8886336873687092`", ",", 
       "0.9769147431054587`", ",", "0.8477651637988434`", ",", 
       "0.16296580764448781`", ",", "0.959564537834641`", ",", 
       "0.9259710055080214`", ",", "0.8475969959157832`", ",", 
       "0.27341046731729696`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "85.80515828753497`"}], ",", 
       RowBox[{"-", "30.838423501683668`"}], ",", 
       RowBox[{"-", "35.01890484917846`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.702071320534505`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6215805591724244`", ",", "0.5131519319083911`", ",", 
         "0.10926252511431403`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8810329263847944`", ",", "0.7853932322136312`", ",", 
         "0.6240174940948123`", ",", "0.05468909392188657`", ",", 
         "0.9922426467790822`", ",", "0.9084475535929554`", ",", 
         "0.3188880521244964`", ",", "0.569302130270308`", ",", 
         "0.329051576013284`", ",", "0.24042827146071305`", ",", 
         "0.04793539835999071`", ",", "0.6883083108885995`", ",", 
         "0.4404178886445749`", ",", "0.2635135283552543`", ",", 
         "0.20017023456114733`", ",", "0.5253425032441117`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4808533508099338`", ",", "0.33754252284723296`", ",", 
         "0.35257323864536416`", ",", "0.2519320359268147`"}], "}"}], ",", 
       "0.7787820302754287`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7159619636748086`", ",", "0.839421306736973`", ",", 
         "0.14266951081250065`", ",", "0.8977491038906343`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9305687314611774`", ",", "0.2154038126421607`", ",", 
         "0.08798041689061407`", ",", "0.9055064571115521`", ",", 
         "0.022121177868222028`", ",", "0.8965157605176644`", ",", 
         "0.5186782866203061`", ",", "0.5764548810982681`", ",", 
         "0.781692906407509`", ",", "0.8485803621576736`", ",", 
         "0.8303699757317067`", ",", "0.13603699245369325`", ",", 
         "0.5181793780522547`", ",", "0.6484101275965263`", ",", 
         "0.30502747248759504`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6551836416437594`", ",", "0.18063685520502165`", ",", 
         "0.29583688895116217`", ",", "0.053095436560780376`", ",", 
         "0.8764016113683307`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", 
       "0.464674891530213`", ",", "0.4564155822141891`", ",", 
       "0.9104259257482797`", ",", "0.9786525074776964`", ",", 
       "0.5341061600690357`", ",", "0.24101176957202836`", ",", 
       "0.8224455088576657`", ",", "0.07314605036614423`", ",", 
       "0.5119849822008137`", ",", "0.344496009054364`", ",", 
       "0.3037672222373595`", ",", "0.4966911692678761`", ",", 
       "0.7302920757933047`", ",", "0.4959156468966904`", ",", 
       "0.47339724650565285`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "116.60246030852713`"}], ",", 
       RowBox[{"-", "115.66580392659658`"}], ",", 
       RowBox[{"-", "9.425227441734787`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.3606541768141829`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.21211269774105002`", ",", "0.847505519300164`", ",", 
         "0.1683697740180578`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7054705351704235`", ",", "0.031475842536028385`", ",", 
         "0.5516686303490019`", ",", "0.11527433745727743`", ",", 
         "0.8290689238020927`", ",", "0.5668009510058154`", ",", 
         "0.09525304813481282`", ",", "0.2048484117089977`", ",", 
         "0.8504164163243964`", ",", "0.03269479093677972`", ",", 
         "0.8542412785627844`", ",", "0.382402902851332`", ",", 
         "0.7772703659582522`", ",", "0.5207098087359661`", ",", 
         "0.5097452695084205`", ",", "0.07863568061397248`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.280579196690376`", ",", "0.7904177329426615`", ",", 
         "0.013829622611730055`", ",", "0.6052384341083197`"}], "}"}], ",", 
       "0.9199250198761931`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5783050352016114`", ",", "0.166324103311566`", ",", 
         "0.4368686600902618`", ",", "0.2144544847057697`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.546829192665583`", ",", "0.6146554729625641`", ",", 
         "0.3215943226329844`", ",", "0.385385560903677`", ",", 
         "0.9800282416597677`", ",", "0.5194024248277512`", ",", 
         "0.1167459109239867`", ",", "0.5349691445792806`", ",", 
         "0.9473334507229879`", ",", "0.6651611462649668`", ",", 
         "0.7343430080726547`", ",", "0.7576987786210285`", ",", 
         "0.42662364198702185`", ",", "0.15541587675654636`", ",", 
         "0.6557073274586822`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4771195819306525`", ",", "0.6362059090443604`", ",", 
         "0.1415862541448163`", ",", "0.05046889335036256`", ",", 
         "0.5571945620544594`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "3"}], "}"}]}], "}"}], ",", 
       "0.05790087384274899`", ",", "0.9752621508332503`", ",", 
       "0.6136002332601007`", ",", "0.34274007734868966`", ",", 
       "0.511071681177166`", ",", "0.36060667787068623`", ",", 
       "0.29200591062711634`", ",", "0.9573545164450127`", ",", 
       "0.5310434395173983`", ",", "0.841204253042935`", ",", 
       "0.17525999970312964`", ",", "0.4223853718657321`", ",", 
       "0.5837099887944104`", ",", "0.1760431067779682`", ",", 
       "0.44091699163047493`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "38.16420915924833`"}], ",", 
       RowBox[{"-", "215.10496154645662`"}], ",", "18.941779979497944`"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.6646865932447036`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.15708634680738853`", ",", "0.020627230021421833`", ",", 
         "0.7852096641717927`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.1875670113140511`", ",", "0.5208804377630282`", ",", 
         "0.8790409758766056`", ",", "0.7347407708214302`", ",", 
         "0.6303724492595917`", ",", "0.46297956392027917`", ",", 
         "0.9037788250433552`", ",", "0.12114053756132946`", ",", 
         "0.287632371910902`", ",", "0.9519078827431132`", ",", 
         "0.5431721471726689`", ",", "0.8291346269342131`", ",", 
         "0.33027785546588934`", ",", "0.42086444322571487`", ",", 
         "0.701967894129734`", ",", "0.6538746272310835`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9078924836001573`", ",", "0.8371544544313045`", ",", 
         "0.5259247873517658`", ",", "0.2129576356006085`"}], "}"}], ",", 
       "0.24320589035545367`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.680068107623916`", ",", "0.505297557330344`", ",", 
         "0.42774797142881577`", ",", "0.05563887904140259`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.1591876698608878`", ",", "0.6262565814537384`", ",", 
         "0.6930072006073855`", ",", "0.4252664297818109`", ",", 
         "0.6962081059406087`", ",", "0.7224777564103833`", ",", 
         "0.5718666630460562`", ",", "0.13763405787090882`", ",", 
         "0.7443002231974954`", ",", "0.17930560923771424`", ",", 
         "0.742732036111843`", ",", "0.8073562024050195`", ",", 
         "0.3234357799717806`", ",", "0.4773377151079803`", ",", 
         "0.0888574088807595`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8994637188048622`", ",", "0.48628132554047604`", ",", 
         "0.9514129277562144`", ",", "0.875899773280151`", ",", 
         "0.6562578284494085`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.8062132179165601`", ",", "0.4461153704258705`", ",", 
       "0.44815180185133524`", ",", "0.600618949408006`", ",", 
       "0.6470255480556723`", ",", "0.819858788972132`", ",", 
       "0.7551446012439497`", ",", "0.17535251962619508`", ",", 
       "0.9508174421150636`", ",", "0.09738103256174886`", ",", 
       "0.18327793819789356`", ",", "0.03771846175528625`", ",", 
       "0.2065172189175682`", ",", "0.9180754233240346`", ",", 
       "0.44054590208605054`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "50.86204075052539`"}], ",", 
       RowBox[{"-", "33.14791298489505`"}], ",", 
       RowBox[{"-", "33.84018948444319`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.23036225935026677`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8830814389457876`", ",", "0.44073770821605435`", ",", 
         "0.35168849320529105`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3308985405454046`", ",", "0.39680011340531157`", ",", 
         "0.4893247804598399`", ",", "0.47578871992514005`", ",", 
         "0.6746407120959961`", ",", "0.5905868954887515`", ",", 
         "0.04320941003396938`", ",", "0.027636918073804854`", ",", 
         "0.07402176268799007`", ",", "0.9435613474330792`", ",", 
         "0.2233506210618373`", ",", "0.2724923168298552`", ",", 
         "0.898669243061795`", ",", "0.9927439053180156`", ",", 
         "0.12596958850008844`", ",", "0.08921437863196165`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8609507813065087`", ",", "0.7862266864004473`", ",", 
         "0.20789416517605383`", ",", "0.6486684765459111`"}], "}"}], ",", 
       "0.6305885219562419`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9031452474546597`", ",", "0.7671564569599995`", ",", 
         "0.29697998334062004`", ",", "0.2996899814108374`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5063451340493481`", ",", "0.27783167650015955`", ",", 
         "0.82119126341548`", ",", "0.6250492693148414`", ",", 
         "0.9157582385605967`", ",", "0.2346222664661902`", ",", 
         "0.7935543453416751`", ",", "0.5510275066268513`", ",", 
         "0.9721968911275174`", ",", "0.011271645404352885`", ",", 
         "0.5210620285118199`", ",", "0.6523582635650563`", ",", 
         "0.9794529858095019`", ",", "0.8853020569042644`", ",", 
         "0.43184764987985824`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7914074822585475`", ",", "0.19322629940905447`", ",", 
         "0.6774078917282106`", ",", "0.7831791733339472`", ",", 
         "0.16081896030230558`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.2900810519543947`", ",", "0.9102514347682111`", ",", 
       "0.4861991899933271`", ",", "0.8611289788914682`", ",", 
       "0.7837359179050466`", ",", "0.6324197582680516`", ",", 
       "0.6650079265778472`", ",", "0.23607970957662677`", ",", 
       "0.8679776793444499`", ",", "0.3977974918018614`", ",", 
       "0.8714535812361721`", ",", "0.6850522029497754`", ",", 
       "0.8957807882169324`", ",", "0.38652584639750853`", ",", 
       "0.3503915527243522`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "117.92831808555503`"}], ",", 
       RowBox[{"-", "87.84454241335192`"}], ",", 
       RowBox[{"-", "66.82678986414554`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.03269393938471916`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9163278024074306`", ",", "0.5012237894932441`", ",", 
         "0.9185439028444939`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.24128645712617158`", ",", "0.7231015029983762`", ",", 
         "0.8238158977650335`", ",", "0.1353647295105468`", ",", 
         "0.080467496823866`", ",", "0.4330204510439814`", ",", 
         "0.9135644629968223`", ",", "0.6491655395172197`", ",", 
         "0.21933851793239784`", ",", "0.6492845331389349`", ",", 
         "0.2811447047287707`", ",", "0.9841576129393724`", ",", 
         "0.9832588083557711`", ",", "0.781306853794485`", ",", 
         "0.8833472129269092`", ",", "0.11270403170320036`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2982066054059956`", ",", "0.8855260655775525`", ",", 
         "0.49682136652940073`", ",", "0.7623124789788481`"}], "}"}], ",", 
       "0.26551266602127643`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9691982631701219`", ",", "0.9955975770361566`", ",", 
         "0.8437685761343542`", ",", "0.024226208895104847`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.24609676017174575`", ",", "0.17178167927112317`", ",", 
         "0.7084038466238074`", ",", "0.9437587120712388`", ",", 
         "0.8130763091277643`", ",", "0.2582172162743009`", ",", 
         "0.059238307106587805`", ",", "0.724420194138841`", ",", 
         "0.1637917759888295`", ",", "0.9770725115455302`", ",", 
         "0.07508069416721536`", ",", "0.7411613857830699`", ",", 
         "0.38248492219434455`", ",", "0.09372529861862096`", ",", 
         "0.962376662464015`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.44295478037707436`", ",", "0.49695885661679207`", ",", 
         "0.5969039320892202`", ",", "0.20006418348516686`", ",", 
         "0.1774421143557979`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "3"}], "}"}]}], "}"}], ",", 
       "0.5277605934466701`", ",", "0.6013063550530636`", ",", 
       "0.3562956073508126`", ",", "0.15321590546069305`", ",", 
       "0.28166383327492445`", ",", "0.4295246757819405`", ",", 
       "0.6478917607270052`", ",", "0.20945719338945423`", ",", 
       "0.4685875241471601`", ",", "0.17130745950763956`", ",", 
       "0.5886534536204174`", ",", "0.4850369992506132`", ",", 
       "0.3047957481583306`", ",", "0.19423494796210936`", ",", 
       "0.513572759453202`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "125.93138201740675`"}], ",", 
       RowBox[{"-", "215.54272394689792`"}], ",", 
       RowBox[{"-", "3.180433361474542`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7438756134675433`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9223108259639861`", ",", "0.10050964934348841`", ",", 
         "0.551196096989187`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3009208330904689`", ",", "0.425351969347194`", ",", 
         "0.5036057172542682`", ",", "0.3511319135040202`", ",", 
         "0.12347871873467102`", ",", "0.8975913759005237`", ",", 
         "0.9022993622012045`", ",", "0.9948363061532075`", ",", 
         "0.970262813273978`", ",", "0.6159275426255993`", ",", 
         "0.4727746864192641`", ",", "0.34694454542620234`", ",", 
         "0.7608056198845238`", ",", "0.14734001847843925`", ",", 
         "0.30146722691162453`", ",", "0.758291091805785`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2757686206339105`", ",", "0.8425442703201086`", ",", 
         "0.10723227894951516`", ",", "0.24471833235258295`"}], "}"}], ",", 
       "0.5318930071663672`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9202334443561226`", ",", "0.00672262960602675`", ",", 
         "0.693522235363396`", ",", "0.2309721740758983`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4948814750089286`", ",", "0.5031169123517586`", ",", 
         "0.3423903218593758`", ",", "0.10749345534122728`", ",", 
         "0.5972900991084048`", ",", "0.600817550150554`", ",", 
         "0.34755401570616823`", ",", "0.13723064206724933`", ",", 
         "0.9813625564828055`", ",", "0.12804286373128992`", ",", 
         "0.000609470279965904`", ",", "0.3764250221827256`", ",", 
         "0.8340225380043662`", ",", "0.8265756368196654`", ",", 
         "0.24231837847418095`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.10065640154881508`", ",", "0.9914782676842576`", ",", 
         "0.7193433578701502`", ",", "0.997600046121598`", ",", 
         "0.5687633943824478`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
       "0.07124482332813503`", ",", "0.7126207282641235`", ",", 
       "0.30407781075820206`", ",", "0.33779122030654957`", ",", 
       "0.5763633483192064`", ",", "0.2095038159123649`", ",", 
       "0.9616874888988263`", ",", "0.23029776496532228`", ",", 
       "0.9790732492108015`", ",", "0.6086862657618108`", ",", 
       "0.614133473192658`", ",", "0.09306712289807297`", ",", 
       "0.9977106927279961`", ",", "0.48064340203052097`", ",", 
       "0.6135240029126922`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "40.515568386831205`"}], ",", "63.17458629009229`", ",", 
       RowBox[{"-", "23.25276129784206`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7166421007153474`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.1636881547236298`", ",", "0.6540677652108555`", ",", 
         "0.3712056244385112`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6159856991665322`", ",", "0.17220988703937218`", ",", 
         "0.9347244073407054`", ",", "0.3736055783169132`", ",", 
         "0.047222304784084415`", ",", "0.10096506371123716`", ",", 
         "0.2221036790765819`", ",", "0.06952776755871114`", ",", 
         "0.7094310844775349`", ",", "0.5246017153920307`", ",", 
         "0.01259986316421701`", ",", "0.10784027865988488`", ",", 
         "0.47913331951221255`", ",", "0.5455284661812292`", ",", 
         "0.4039135974024061`", ",", "0.4937068054672269`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3860661966141396`", ",", "0.5478177734532331`", ",", 
         "0.9232701953718851`", ",", "0.8801828025545347`"}], "}"}], ",", 
       "0.6694240958987923`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.38412961872960333`", ",", "0.2692024301610296`", ",", 
         "0.5089771781160236`", ",", "0.05343839673225995`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.21191973169023112`", ",", "0.33447802282032424`", ",", 
         "0.13537159979911043`", ",", "0.006216091948175536`", ",", 
         "0.11095466797899396`", ",", "0.11237434374374235`", ",", 
         "0.06584383224039927`", ",", "0.2967850074706407`", ",", 
         "0.5863529525869632`", ",", "0.09977448057952533`", ",", 
         "0.9580035535805144`", ",", "0.8176516879584281`", ",", 
         "0.04082448640573404`", ",", "0.6958608831771192`", ",", 
         "0.4642967481132875`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.43158549134428853`", ",", "0.4930067129525009`", ",", 
         "0.772590687805234`", ",", "0.5841139455587527`", ",", 
         "0.7621613954454963`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "4"}], "}"}]}], "}"}], ",", 
       "0.10887709422289761`", ",", "0.5033882576442044`", ",", 
       "0.07513676744272915`", ",", "0.7087229987132363`", ",", 
       "0.8969573625326664`", ",", "0.16891023482388015`", ",", 
       "0.9397651676436187`", ",", "0.7025069067650608`", ",", 
       "0.7860026945536726`", ",", "0.05653589108013781`", ",", 
       "0.8739213354032195`", ",", "0.4057218992944201`", ",", 
       "0.19964974196670932`", ",", "0.9567614105006125`", ",", 
       "0.9159177818227051`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"46.646175279020554`", ",", 
       RowBox[{"-", "64.86025160906999`"}], ",", 
       RowBox[{"-", "5.734300393113521`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.588070211335992`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.1588252555609753`", ",", "0.2609005273234933`", ",", 
         "0.45162103370941753`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.15648471999170346`", ",", "0.6658185426084744`", ",", 
         "0.4883098395182593`", ",", "0.8675070881506648`", ",", 
         "0.39432332454620717`", ",", "0.5569414483855768`", ",", 
         "0.9849215818740549`", ",", "0.7923703207079357`", ",", 
         "0.6856003258329708`", ",", "0.6599840858529102`", ",", 
         "0.8160113470501748`", ",", "0.852605153064317`", ",", 
         "0.98309341906791`", ",", "0.8739813912992377`", ",", 
         "0.7594754559700369`", ",", "0.9786838176610975`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5773715197734899`", ",", "0.6743316493325284`", ",", 
         "0.8027140454694244`", ",", "0.0627660358383924`"}], "}"}], ",", 
       "0.989301308437498`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5155063937715532`", ",", "0.5418135181459312`", ",", 
         "0.6111450021289748`", ",", "0.8328165884457944`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8496878511630788`", ",", "0.05350367862767188`", ",", 
         "0.74363791397831`", ",", "0.4384932638995873`", ",", 
         "0.292746402777502`", ",", "0.06858209675361701`", ",", 
         "0.9512675932703744`", ",", "0.7528929380666164`", ",", 
         "0.6327623169245917`", ",", "0.2525707497034423`", ",", 
         "0.09866244020605745`", ",", "0.7697995189987064`", ",", 
         "0.758780925625354`", ",", "0.4930952937334054`", ",", 
         "0.11997862254495999`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.19242799922521645`", ",", "0.08444927629282566`", ",", 
         "0.690381248263981`", ",", "0.05721258670656759`", ",", 
         "0.2031266907877185`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.5689428825212726`", ",", "0.14856773011804983`", ",", 
       "0.44606758457759277`", ",", "0.370310102341924`", ",", 
       "0.7192550313581938`", ",", "0.09506405149037794`", ",", 
       "0.7024296705992827`", ",", "0.9318168384423368`", ",", 
       "0.4265086285806918`", ",", "0.026481954736760936`", ",", 
       "0.7511620773289084`", ",", "0.1789239003757203`", ",", 
       "0.7937463116561`", ",", "0.7739112050333187`", ",", 
       "0.6524996371228509`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "81.62530275536643`"}], ",", 
       RowBox[{"-", "62.34802990336913`"}], ",", 
       RowBox[{"-", "40.58924047125883`"}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.505673776362035*^9, 3.50567517241039*^9, 3.505694464797428*^9, 
   3.505694520370846*^9, {3.505760569191741*^9, 3.5057605727116957`*^9}, 
   3.5057607666477423`*^9, {3.5057662355899057`*^9, 3.50576625748481*^9}, 
   3.505766305360738*^9, 3.506005663299089*^9, 3.506005754410383*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["DQfuncDTau test vectors", "Subsubsection",
 CellChangeTimes->{{3.505673737120636*^9, 3.505673743138568*^9}, {
  3.505677420790615*^9, 3.505677421061162*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "makevararray", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"makevararray", "[", 
    RowBox[{"s_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ToExpression", "[", 
      RowBox[{"s", " ", "<>", " ", 
       RowBox[{"ToString", "[", "i", "]"}]}], "]"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"i", ",", " ", "1", ",", " ", "n"}], " ", "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Clear", "[", "makevarmatrix", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"makevarmatrix", "[", 
    RowBox[{"s_", ",", " ", "m_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"makevararray", "[", 
      RowBox[{
       RowBox[{"s", "<>", " ", 
        RowBox[{"ToString", "[", "i", "]"}]}], ",", " ", "n"}], "]"}], ",", 
     " ", 
     RowBox[{"{", " ", 
      RowBox[{"i", ",", " ", "1", ",", " ", "m"}], " ", "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "dqfuncdtau", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dqfuncdtau", "[", 
    RowBox[{
    "\[Kappa]_", ",", " ", "log\[Alpha]_", ",", " ", "\[Tau]_", ",", " ", 
     "\[Gamma]_", ",", " ", "\[Rho]_", ",", " ", "log\[Lambda]_", ",", " ", 
     "pz_", ",", " ", "priorz_", ",", " ", "d_", ",", " ", "plog\[Alpha]_", 
     ",", " ", "p\[Tau]_", ",", " ", "p\[Gamma]_", ",", " ", "p\[Kappa]_", 
     ",", " ", "p\[Rho]_", ",", " ", "plog\[Lambda]_"}], "]"}], " ", ":=", 
   " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "tmp", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"tmp", " ", "=", " ", 
       RowBox[{"makevarmatrix", "[", 
        RowBox[{"\"\<\[Tau]\>\"", ",", " ", 
         RowBox[{"Length", "[", "\[Tau]", "]"}], ",", " ", 
         RowBox[{"Length", "[", 
          RowBox[{"\[Tau]", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}]}], ";", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"qfunc", "[", 
          RowBox[{
          "\[Kappa]", ",", "log\[Alpha]", ",", " ", "tmp", ",", " ", 
           "\[Gamma]", ",", " ", "\[Rho]", ",", " ", "log\[Lambda]", ",", " ",
            "pz", ",", " ", "priorz", ",", " ", "d", ",", " ", "plog\[Alpha]",
            ",", " ", "p\[Tau]", ",", " ", "p\[Gamma]", ",", " ", "p\[Kappa]",
            ",", " ", "p\[Rho]", ",", " ", "plog\[Lambda]"}], "]"}], ",", " ", 
         RowBox[{"{", "tmp", "}"}]}], "]"}], " ", "/.", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"ToExpression", "[", 
           RowBox[{
            RowBox[{"ToString", "[", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "<>", " ", 
            "\"\< -> \>\"", " ", "<>", " ", 
            RowBox[{"ToString", "[", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], "&"}], " ", "/@", 
         RowBox[{"Transpose", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Flatten", "[", 
             RowBox[{"makevarmatrix", "[", 
              RowBox[{"\"\<\[Tau]\>\"", ",", " ", 
               RowBox[{"Length", "[", "\[Tau]", "]"}], ",", " ", 
               RowBox[{"Length", "[", 
                RowBox[{"\[Tau]", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
            " ", 
            RowBox[{"Flatten", "[", "\[Tau]", "]"}]}], " ", "}"}], "]"}]}], 
        ")"}]}]}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5056774446089487`*^9, 3.50567749584249*^9}, {
  3.505677542336792*^9, 3.5056775431973743`*^9}, {3.505677591318882*^9, 
  3.505677652621853*^9}, {3.5056945931226177`*^9, 3.5056945954723454`*^9}, {
  3.505766612151059*^9, 3.5057666331098623`*^9}, {3.506006338725239*^9, 
  3.5060063643828793`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nworkers", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nworkers", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nimages", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nimages", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nratings", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nratings", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"!", " ", 
             RowBox[{"ListQ", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
            RowBox[{"!", " ", 
             RowBox[{"IntegerQ", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
         RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
      " ", "/@", " ", "#"}], ",", " ", 
     RowBox[{"Flatten", "[", 
      RowBox[{"dqfuncdtau", "[", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
        RowBox[{"#", "[", 
         RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
        RowBox[{"#", "[", 
         RowBox[{"[", "4", "]"}], "]"}], ",", " ", 
        RowBox[{"#", "[", 
         RowBox[{"[", "5", "]"}], "]"}], ",", " ", 
        RowBox[{"#", "[", 
         RowBox[{"[", "6", "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", "7", "]"}], "]"}], ",", " ", 
        RowBox[{"#", "[", 
         RowBox[{"[", "8", "]"}], "]"}], ",", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"1", "+", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
            RowBox[{"1", "+", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], ",", 
            RowBox[{"#", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "&"}], " ", "/@", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "9", "]"}], "]"}]}], ",", 
        RowBox[{"Function", "[", 
         RowBox[{"x", ",", " ", 
          RowBox[{"NormalDistribution", "[", 
           RowBox[{"x", ",", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "10", "]"}], "]"}]}], "]"}]}], "]"}], ",", " ", 
        RowBox[{"Function", "[", 
         RowBox[{"x", ",", " ", 
          RowBox[{"NormalDistribution", "[", 
           RowBox[{"x", ",", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "11", "]"}], "]"}]}], "]"}]}], "]"}], ",", 
        RowBox[{"{", " ", 
         RowBox[{
          RowBox[{"NormalDistribution", "[", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "12", "]"}], "]"}], ",", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "13", "]"}], "]"}]}], "]"}], ",", " ", 
          RowBox[{"NormalDistribution", "[", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "14", "]"}], "]"}], ",", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "15", "]"}], "]"}]}], "]"}], ",", 
          RowBox[{"NormalDistribution", "[", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "16", "]"}], "]"}], ",", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "17", "]"}], "]"}]}], "]"}], ",", " ", 
          RowBox[{"NormalDistribution", "[", 
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "18", "]"}], "]"}], ",", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "19", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"NormalDistribution", "[", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "20", "]"}], "]"}], ",", " ", 
          RowBox[{"#", "[", 
           RowBox[{"[", "21", "]"}], "]"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"NormalDistribution", "[", 
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "22", "]"}], "]"}], ",", " ", 
          RowBox[{"#", "[", 
           RowBox[{"[", "23", "]"}], "]"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Function", "[", 
         RowBox[{"x", ",", " ", 
          RowBox[{"NormalDistribution", "[", 
           RowBox[{"x", ",", " ", 
            RowBox[{"#", "[", 
             RowBox[{"[", "24", "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}], 
      "]"}]}], "}"}], "&"}], "/@", "\[IndentingNewLine]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nimages"}], " ", "}"}]}], 
       "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "}"}]}], "]"}], ",", 
        " ", 
        RowBox[{"{", " ", 
         RowBox[{"k", ",", " ", "1", ",", " ", "nworkers"}], "}"}]}], "]"}], 
      ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", 
          RowBox[{"nlabels", " ", "-", " ", "1"}]}], "}"}]}], "]"}], ",", " ",
       "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nworkers"}], " ", "}"}]}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "nimages"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nworkers", " ", "-", " ", "1"}]}], "]"}], ",", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nimages", " ", "-", " ", "1"}]}], "]"}], ",", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], "}"}], ",", 
        " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nratings"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", " ", 
     RowBox[{"foo", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.504016424813343*^9, 3.504016580297758*^9}, {
   3.504018269599441*^9, 3.504018279219314*^9}, {3.504018359153508*^9, 
   3.504018387475568*^9}, {3.5040184327040863`*^9, 3.504018509500141*^9}, {
   3.504018861653284*^9, 3.504018920277594*^9}, {3.504019049785894*^9, 
   3.504019065803638*^9}, 3.504019184180941*^9, {3.504059801963703*^9, 
   3.504059813764331*^9}, 3.5040599982883453`*^9, {3.504060100407703*^9, 
   3.504060104803857*^9}, 3.504060440796597*^9, {3.504060503267675*^9, 
   3.504060525182757*^9}, {3.50456047953319*^9, 3.504560681387557*^9}, {
   3.504577463729417*^9, 3.504577464011519*^9}, {3.504577589051256*^9, 
   3.504577590132493*^9}, {3.504577632742776*^9, 3.5045776330605373`*^9}, {
   3.504740502012248*^9, 3.504740503922497*^9}, {3.504740727150861*^9, 
   3.504740736352736*^9}, 3.504876469621917*^9, {3.5055962008030443`*^9, 
   3.505596275077857*^9}, {3.505596319880871*^9, 3.505596373226162*^9}, {
   3.505596415459552*^9, 3.505596505766666*^9}, {3.50559654044011*^9, 
   3.505596540734797*^9}, 3.505672802683957*^9, {3.505673770320092*^9, 
   3.505673773863884*^9}, 3.505675171786241*^9, {3.505677519217095*^9, 
   3.505677530465034*^9}, {3.5056777174285316`*^9, 3.505677721062014*^9}, 
   3.50567787277495*^9, {3.505694602929627*^9, 3.505694628852874*^9}, {
   3.50576080104806*^9, 3.50576081065732*^9}, {3.505761641533453*^9, 
   3.5057616418559437`*^9}, {3.5057618944980927`*^9, 3.50576189477043*^9}, {
   3.505762293944854*^9, 3.5057622975562897`*^9}, {3.5057626608260813`*^9, 
   3.50576274494022*^9}, 3.5057628431101017`*^9, 3.505766535689343*^9, {
   3.505766609186923*^9, 3.505766638304078*^9}, {3.505766729169209*^9, 
   3.505766752714189*^9}, {3.506006380986966*^9, 3.506006394063553*^9}, 
   3.5060064751999607`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.603060288457221`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8055807539034283`", ",", "0.33004049393220203`", ",", 
         "0.5405668876770235`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.84728159132152`", ",", "0.38570778124337035`", ",", 
         "0.9021979677380988`", ",", "0.43050603041475927`", ",", 
         "0.7424274326268746`", ",", "0.722734549820826`", ",", 
         "0.3413616971626709`", ",", "0.49893079205639573`", ",", 
         "0.4242929255137954`", ",", "0.40447666916082425`", ",", 
         "0.41080883807182494`", ",", "0.9680211457138675`", ",", 
         "0.4832456598270226`", ",", "0.1292080967241945`", ",", 
         "0.6267113008076499`", ",", "0.8042060065868799`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3543561798214225`", ",", "0.8644643929140865`", ",", 
         "0.10338192483192671`", ",", "0.7899953472375069`"}], "}"}], ",", 
       "0.7512958913642015`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.058883639010658156`", ",", "0.7733414308997247`", ",", 
         "0.2494284595604833`", ",", "0.9040143000426814`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6731758577672878`", ",", "0.8711434631616258`", ",", 
         "0.818922429145724`", ",", "0.16158686741580672`", ",", 
         "0.9504413079464619`", ",", "0.529781765998955`", ",", 
         "0.3199916370893283`", ",", "0.7372939419020114`", ",", 
         "0.5459646387856376`", ",", "0.11897292792713003`", ",", 
         "0.35197049137546077`", ",", "0.2540482820749887`", ",", 
         "0.4167565420614431`", ",", "0.4922616271194801`", ",", 
         "0.5477644847885809`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8996921022535662`", ",", "0.5522921491473566`", ",", 
         "0.3888797022875534`", ",", "0.757769137551074`", ",", 
         "0.14839621088936478`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", 
       "0.4934085101366984`", ",", "0.6155382713878287`", ",", 
       "0.5083406779905907`", ",", "0.24438191084668343`", ",", 
       "0.8202326523694106`", ",", "0.7443948082262029`", ",", 
       "0.6894182488448667`", ",", "0.0827950434308767`", ",", 
       "0.8697913444229488`", ",", "0.2146130422272479`", ",", 
       "0.36942661175553837`", ",", "0.3455011015288654`", ",", 
       "0.3238267056373112`", ",", "0.09564011430011785`", ",", 
       "0.017456120380077645`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.300982475554332`"}], ",", "1.263585009637318`", ",", 
       RowBox[{"-", "2.108320709611553`"}], ",", "0.9488026834038187`", ",", 
       RowBox[{"-", "8.27751023133401`"}], ",", 
       RowBox[{"-", "7.373838246816671`"}], ",", 
       RowBox[{"-", "1.7009628163332526`"}], ",", 
       RowBox[{"-", "1.1773755169553082`"}], ",", 
       RowBox[{"-", "2.036075158650064`"}], ",", 
       RowBox[{"-", "1.2804977837364289`"}], ",", 
       RowBox[{"-", "3.773859132457267`"}], ",", "9.499830801113365`", ",", 
       RowBox[{"-", "3.0842256541656443`"}], ",", 
       RowBox[{"-", "1.3343352478750277`"}], ",", "2.5570589608515686`", ",", 
       "3.102156870328333`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.09145281945387668`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9070701635758681`", ",", "0.6033784871806377`", ",", 
         "0.46969163559149674`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.19176071720031046`", ",", "0.35477801442851153`", ",", 
         "0.21449878489308433`", ",", "0.7119224980404227`", ",", 
         "0.04336450631094566`", ",", "0.8613695042918131`", ",", 
         "0.5989605135052556`", ",", "0.20358182004983202`", ",", 
         "0.7989825954642622`", ",", "0.04113685192240251`", ",", 
         "0.8545657052790527`", ",", "0.5141635712049654`", ",", 
         "0.7161875520333856`", ",", "0.17134550749945374`", ",", 
         "0.6399526630518049`", ",", "0.14473695944942694`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.37068645050452015`", ",", "0.8475188018621426`", ",", 
         "0.544312548751687`", ",", "0.12728083906934928`"}], "}"}], ",", 
       "0.27923363105064347`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9404486382862745`", ",", "0.9409340615710493`", ",", 
         "0.6575892034778525`", ",", "0.08747291385033304`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5856706238577629`", ",", "0.726435276677965`", ",", 
         "0.9456667054374298`", ",", "0.044108407539387384`", ",", 
         "0.7243011195659498`", ",", "0.12747476317270937`", ",", 
         "0.7420848853875978`", ",", "0.24512581207512513`", ",", 
         "0.6831642676435473`", ",", "0.2729090578936566`", ",", 
         "0.22792131418263245`", ",", "0.5289382600417396`", ",", 
         "0.5118187601440936`", ",", "0.6329563948418517`", ",", 
         "0.08318435473320553`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.15825180953721943`", ",", "0.664299958281951`", ",", 
         "0.08864384609016465`", ",", "0.9559035156638562`", ",", 
         "0.8790181784865759`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.7238513199956765`", ",", "0.14770978451911534`", ",", 
       "0.29831431218600374`", ",", "0.7915452646362429`", ",", 
       "0.1381806961379137`", ",", "0.42127450784115034`", ",", 
       "0.3526476067485739`", ",", "0.7474368570968555`", ",", 
       "0.4138795765719639`", ",", "0.293799744668441`", ",", 
       "0.6105627213609761`", ",", "0.5023110450217304`", ",", 
       "0.7307153089284166`", ",", "0.02089068677478439`", ",", 
       "0.3826414071783437`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "7.806513959178663`", ",", "31.724509865591553`", ",", 
       "24.208514021846206`", ",", 
       RowBox[{"-", "18.43006877850666`"}], ",", "24.377158540002576`", ",", 
       "8.467519775650178`", ",", "6.580576081595715`", ",", 
       "5.506682152208805`", ",", 
       RowBox[{"-", "19.537814523951113`"}], ",", "64.67945127836175`", ",", 
       "12.175465379048967`", ",", "6.664696958359201`", ",", 
       RowBox[{"-", "15.835488683536875`"}], ",", "30.991255372484122`", ",", 
       
       RowBox[{"-", "4.38352095856761`"}], ",", 
       RowBox[{"-", "0.8000740930944347`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.9733727849799908`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.21889654878432305`", ",", "0.3879342919329327`", ",", 
         "0.29945705244513815`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8151209754427714`", ",", "0.5545965905023721`", ",", 
         "0.29929044584276804`", ",", "0.3435535367812819`", ",", 
         "0.9361027969561955`", ",", "0.8307452705066954`", ",", 
         "0.1515806613236527`", ",", "0.04523922459527822`", ",", 
         "0.14455753231995255`", ",", "0.6925645743687817`", ",", 
         "0.7303061534825024`", ",", "0.6925916178467043`", ",", 
         "0.3971206752230971`", ",", "0.2786849977968179`", ",", 
         "0.4365064088140614`", ",", "0.08202889648572814`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8948096302013667`", ",", "0.5479696888684013`", ",", 
         "0.415615722039277`", ",", "0.6993874893073845`"}], "}"}], ",", 
       "0.9214368452213759`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3290731400840782`", ",", "0.027681430106344277`", ",", 
         "0.3999304368622463`", ",", "0.10631586977860454`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7744765495817062`", ",", "0.7283909842635762`", ",", 
         "0.056376900080964326`", ",", "0.1702130728224091`", ",", 
         "0.9437312790750108`", ",", "0.5768103229399235`", ",", 
         "0.011137675485686109`", ",", "0.02565554050245656`", ",", 
         "0.2511667047062289`", ",", "0.8465041694574211`", ",", 
         "0.3185460576389818`", ",", "0.6285348652793595`", ",", 
         "0.972481706909411`", ",", "0.4099977606433598`", ",", 
         "0.2365171611532537`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7337252350779928`", ",", "0.42451201804100985`", ",", 
         "0.9943820386040828`", ",", "0.5371296718458692`", ",", 
         "0.8122883898566169`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.09543887795693162`", ",", "0.9667006084977385`", ",", 
       "0.137199234983623`", ",", "0.7059725200780124`", ",", 
       "0.3209623283752255`", ",", "0.23830962423416233`", ",", 
       "0.08082233490265865`", ",", "0.5357594472556033`", ",", 
       "0.3772310493002148`", ",", "0.6614993012942388`", ",", 
       "0.06968465941697255`", ",", "0.5101039067531468`", ",", 
       "0.12606434459398583`", ",", "0.8149951318368176`", ",", 
       "0.7511386017779907`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.8824565729093736`"}], ",", 
       RowBox[{"-", "1.2418346732596703`"}], ",", 
       RowBox[{"-", "1.279235359390233`"}], ",", 
       RowBox[{"-", "1.3575496238732834`"}], ",", "1.6002912453315408`", ",", 
       "1.0715137969751996`", ",", "5.091717491360653`", ",", 
       "5.190871350697147`", ",", "8.729314199856596`", ",", 
       "6.944553836883139`", ",", "6.39103245828562`", ",", 
       "6.214700796133732`", ",", "3.5025928144148635`", ",", 
       "5.551836741715942`", ",", "8.632659165195626`", ",", 
       "8.646237269182864`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.8815690414737872`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.15358263768457472`", ",", "0.4049973711934578`", ",", 
         "0.514621440624737`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.14784380639579436`", ",", "0.7290706196435649`", ",", 
         "0.410615332589375`", ",", "0.9774917687788678`", ",", 
         "0.3355554165391774`", ",", "0.6336317416866333`", ",", 
         "0.4439147240916364`", ",", "0.8402925337952448`", ",", 
         "0.629582896461165`", ",", "0.3126694133114078`", ",", 
         "0.20560509985747408`", ",", "0.7594701988925862`", ",", 
         "0.09382344920556179`", ",", "0.9354383640111931`", ",", 
         "0.5441057985632353`", ",", "0.6897855394756136`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5837195424524151`", ",", "0.8093740194172072`", ",", 
         "0.7291106667264177`", ",", "0.9386469376976229`"}], "}"}], ",", 
       "0.7021505009786279`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6557913817326325`", ",", "0.3241132955329598`", ",", 
         "0.42402549707288584`", ",", "0.5543066945828335`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9267207620890676`", ",", "0.9134979629435849`", ",", 
         "0.44653372829401805`", ",", "0.21875127804365604`", ",", 
         "0.2930890204024343`", ",", "0.4695832388519484`", ",", 
         "0.6062411944987732`", ",", "0.589168381582491`", ",", 
         "0.9804196070910265`", ",", "0.26397813899447437`", ",", 
         "0.8467709956061871`", ",", "0.4953449323769292`", ",", 
         "0.044981243079833436`", ",", "0.719872340431239`", ",", 
         "0.15698545613057344`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9116253899245141`", ",", "0.2356072236626262`", ",", 
         "0.9907616737048215`", ",", "0.21833851843295055`", ",", 
         "0.20947488894588626`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.5798158419299937`", ",", "0.6666483781718616`", ",", 
       "0.7943130213600647`", ",", "0.6551681943630527`", ",", 
       "0.6530950798409262`", ",", "0.7531504152282767`", ",", 
       "0.34777929306604666`", ",", "0.4364169163193967`", ",", 
       "0.36000605943849184`", ",", "0.28356717637632833`", ",", 
       "0.7415380985672735`", ",", "0.8472485347369058`", ",", 
       "0.37958645234746535`", ",", "0.01958903738185396`", ",", 
       "0.8947671029610864`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.510736533195737`"}], ",", "9.884230463247597`", ",", 
       "9.648391457649783`", ",", "12.557147654101513`", ",", 
       RowBox[{"-", "0.6686422963997184`"}], ",", 
       RowBox[{"-", "1.4388149519389781`"}], ",", "3.8050939894719145`", ",", 
       "2.9206109605972697`", ",", 
       RowBox[{"-", "3.316065847238189`"}], ",", "3.0325587426399574`", ",", 
       "8.48205004523034`", ",", "6.6746478643767455`", ",", 
       RowBox[{"-", "0.9218237194978747`"}], ",", 
       RowBox[{"-", "4.03648316410577`"}], ",", "3.9213076555816486`", ",", 
       "9.796908731305054`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.3519036023599765`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.33460520926763193`", ",", "0.29971669695061487`", ",", 
         "0.737781646830513`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4402782124354624`", ",", "0.09899798560500571`", ",", 
         "0.30895502324579344`", ",", "0.5194431283975625`", ",", 
         "0.23080332348957613`", ",", "0.519182143675012`", ",", 
         "0.6423066450739319`", ",", "0.7251301070374978`", ",", 
         "0.5756351291265234`", ",", "0.8660870638340858`", ",", 
         "0.889156229845655`", ",", "0.3773508139714511`", ",", 
         "0.13921821280712668`", ",", "0.506081004395594`", ",", 
         "0.6055890534693268`", ",", "0.6358127154041776`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.291969678070221`", ",", "0.12649455204812868`", ",", 
         "0.5860000160874728`", ",", "0.7410456124430912`"}], "}"}], ",", 
       "0.9400660757102445`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7918893427804967`", ",", "0.2862833191368579`", ",", 
         "0.0032639656125782006`", ",", "0.4997878632747821`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6928913571754911`", ",", "0.9773282958910645`", ",", 
         "0.48382083721501573`", ",", "0.268984539785206`", ",", 
         "0.17370921350047908`", ",", "0.33502165081713264`", ",", 
         "0.758690730177518`", ",", "0.6933494106586826`", ",", 
         "0.30762214966639323`", ",", "0.4458654209714776`", ",", 
         "0.3813399162060669`", ",", "0.554131197851556`", ",", 
         "0.8015411452707992`", ",", "0.8402763675021508`", ",", 
         "0.7455272008018893`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.26216151978133495`", ",", "0.6750465932226705`", ",", 
         "0.2542763514146781`", ",", "0.0044815883587980485`", ",", 
         "0.3220954440710904`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
       "0.8831572504421737`", ",", "0.9679930322778202`", ",", 
       "0.0012176227462198474`", ",", "0.8223075807963083`", ",", 
       "0.1902658932666827`", ",", "0.9906647363867557`", ",", 
       "0.5173967855312042`", ",", "0.5533230410111023`", ",", 
       "0.01655667976620364`", ",", "0.655643085569623`", ",", 
       "0.7587060553536862`", ",", "0.8599736303524197`", ",", 
       "0.7089345300998104`", ",", "0.20977766459814542`", ",", 
       "0.37736613914761924`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "3.316281825078452`", ",", "2.6043212169564383`", ",", 
       "17.62819129134829`", ",", "30.962669071973707`", ",", 
       RowBox[{"-", "0.8935445230322984`"}], ",", 
       RowBox[{"-", "2.037720470318001`"}], ",", 
       RowBox[{"-", "2.211473422673925`"}], ",", "6.067486921792809`", ",", 
       RowBox[{"-", "0.9369019502778498`"}], ",", 
       RowBox[{"-", "1.709920042689486`"}], ",", 
       RowBox[{"-", "1.42364858498102`"}], ",", 
       RowBox[{"-", "0.9619160111929934`"}], ",", 
       RowBox[{"-", "0.2097742073346938`"}], ",", 
       RowBox[{"-", "1.1060980334619082`"}], ",", 
       RowBox[{"-", "0.9952651449135604`"}], ",", 
       RowBox[{"-", "1.4007244251105728`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.30584243250086385`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9073933848290112`", ",", "0.3695012970959946`", ",", 
         "0.63183893834573`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.043680912719528904`", ",", "0.23234679160634072`", ",", 
         "0.11522494568131651`", ",", "0.6273573499869319`", ",", 
         "0.7215854686484384`", ",", "0.34918954116416695`", ",", 
         "0.14723191340349634`", ",", "0.6261397272407121`", ",", 
         "0.8992778878521301`", ",", "0.15892364789748428`", ",", 
         "0.15656717701674067`", ",", "0.108742941709508`", ",", 
         "0.3459548468410278`", ",", "0.14236696813128064`", ",", 
         "0.5009240914471176`", ",", "0.35003688635582186`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.48598121648860804`", ",", "0.4334324380314702`", ",", 
         "0.2911464268489722`", ",", "0.9726707472082026`"}], "}"}], ",", 
       "0.18013878398774422`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5260390532024589`", ",", "0.9216451297529776`", ",", 
         "0.3408318088624726`", ",", "0.1364578712682153`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2936922615961182`", ",", "0.806420184071661`", ",", 
         "0.7134744588755406`", ",", "0.4148724026197768`", ",", 
         "0.9445027204319513`", ",", "0.6591882706681648`", ",", 
         "0.08733473163482851`", ",", "0.5155945147676467`", ",", 
         "0.785579072534467`", ",", "0.502621093651424`", ",", 
         "0.9785917899253205`", ",", "0.16963966792661894`", ",", 
         "0.6432121044031863`", ",", "0.0016970022043064706`", ",", 
         "0.6285549035694986`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6836584514380109`", ",", "0.20977966637171616`", ",", 
         "0.7105505753553343`", ",", "0.655884156361296`", ",", 
         "0.5035196674502667`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.6837406131692572`", ",", "0.7889054456023566`", ",", 
       "0.31505234749882344`", ",", "0.36706179618205137`", ",", 
       "0.390048351573139`", ",", "0.9824852615306956`", ",", 
       "0.6015778886232829`", ",", "0.9521893935622745`", ",", 
       "0.4455456311411877`", ",", "0.32329699086253083`", ",", 
       "0.5142431569884544`", ",", "0.4365948787946278`", ",", 
       "0.6599665586067207`", ",", "0.8206758972111068`", ",", 
       "0.5356513670631339`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "11.77673682585344`", ",", "22.78332766201426`", ",", 
       "21.88282835672857`", ",", "27.981847142384638`", ",", 
       RowBox[{"-", "2.546359442009093`"}], ",", 
       RowBox[{"-", "2.1898419837433485`"}], ",", 
       RowBox[{"-", "2.140994127965676`"}], ",", 
       RowBox[{"-", "1.9186020070966125`"}], ",", 
       RowBox[{"-", "1.6004390261807833`"}], ",", 
       RowBox[{"-", "0.5364370743179687`"}], ",", 
       RowBox[{"-", "0.7910868540316873`"}], ",", "0.2435202004799253`", ",", 
       "2.4490247341374043`", ",", "1.646757977363603`", ",", 
       "5.212327071009572`", ",", "10.161969348595669`"}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.2669552108680089`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.01675445420353441`", ",", "0.8189788950068003`", ",", 
         "0.9070964634936352`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.583296759429998`", ",", "0.8069747878318183`", ",", 
         "0.108428319651466`", ",", "0.25121230713233916`", ",", 
         "0.07977709197973132`", ",", "0.12323417466256106`", ",", 
         "0.3195228740491093`", ",", "0.9361599596335157`", ",", 
         "0.7127152957976799`", ",", "0.733185823089422`", ",", 
         "0.33703761251841374`", ",", "0.3345820710102329`", ",", 
         "0.7605259022354054`", ",", "0.28764019194823437`", ",", 
         "0.013740621655882874`", ",", "0.8203389140217786`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.32393102344077757`", ",", "0.6276736333415136`", ",", 
         "0.19306472444477613`", ",", "0.28468754695864473`"}], "}"}], ",", 
       "0.05697581257276864`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6109191791379792`", ",", "0.37408582943797586`", ",", 
         "0.3775910834650095`", ",", "0.47367905314277065`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8039443913061609`", ",", "0.26565750978650987`", ",", 
         "0.1263787763326704`", ",", "0.3939019611630393`", ",", 
         "0.6807102166435999`", ",", "0.9461346357374005`", ",", 
         "0.19021881669915466`", ",", "0.6811866653653594`", ",", 
         "0.9475243935541778`", ",", "0.6090970232189868`", ",", 
         "0.8556367456889218`", ",", "0.920660763129954`", ",", 
         "0.6598842016059434`", ",", "0.595356401563104`", ",", 
         "0.03529783166714321`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5967297396891764`", ",", "0.032210568264429855`", ",", 
         "0.4022916771183278`", ",", "0.7506102847084984`", ",", 
         "0.5397539271164078`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "0"}], "}"}]}], "}"}], ",", 
       "0.4212913891264507`", ",", "0.028205847680351982`", ",", 
       "0.3730192012434889`", ",", "0.0660748739736372`", ",", 
       "0.6173469978202898`", ",", "0.7625483378938421`", ",", 
       "0.24664042491081853`", ",", "0.6721729128105979`", ",", 
       "0.9366367811766899`", ",", "0.8164137021564416`", ",", 
       "0.056421608211663865`", ",", "0.9909862474452384`", ",", 
       "0.9891123876225121`", ",", "0.20731667893745478`", ",", 
       "0.20078486252274208`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "316.5362164333886`"}], ",", 
       RowBox[{"-", "216.56168462765234`"}], ",", "115.09510160299988`", ",", 
       "54.83306973046355`", ",", "305.25306293894903`", ",", 
       "631.1038431984634`", ",", 
       RowBox[{"-", "162.91908857482213`"}], ",", 
       RowBox[{"-", "809.3129324896073`"}], ",", 
       RowBox[{"-", "491.5429338518271`"}], ",", 
       RowBox[{"-", "135.70833460281972`"}], ",", 
       RowBox[{"-", "173.01024662983383`"}], ",", 
       RowBox[{"-", "55.03978409233421`"}], ",", 
       RowBox[{"-", "533.7161238292559`"}], ",", "441.9709297011791`", ",", 
       "239.74569510722364`", ",", 
       RowBox[{"-", "661.8153154874254`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.07032548431528447`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.32922818601656867`", ",", "0.6119602773743509`", ",", 
         "0.16548703085559888`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.473595744626108`", ",", "0.2970176177521388`", ",", 
         "0.20966860025602302`", ",", "0.4148767461471004`", ",", 
         "0.9338418175097002`", ",", "0.8757262286256882`", ",", 
         "0.18146275257567104`", ",", "0.04185754490361148`", ",", 
         "0.867766943536063`", ",", "0.2583792308053984`", ",", 
         "0.4189144146818289`", ",", "0.795217119992793`", ",", 
         "0.1955940307254651`", ",", "0.32174244962870846`", ",", 
         "0.6025007125253873`", ",", "0.7387955117811291`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2046077832802266`", ",", "0.3326300620061964`", ",", 
         "0.3951840335879325`", ",", "0.538010649258387`"}], "}"}], ",", 
       "0.13428229896494212`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.0034018759896276697`", ",", "0.7832237562135816`", ",", 
         "0.37252361840278814`", ",", "0.6606865543388342`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7063842582374888`", ",", "0.5735551559575587`", ",", 
         "0.9576468722556877`", ",", "0.726844736829134`", ",", 
         "0.8306580296118007`", ",", "0.3920924033818876`", ",", 
         "0.9157893273520762`", ",", "0.859077793293071`", ",", 
         "0.5722787988064023`", ",", "0.9731779887000587`", ",", 
         "0.1205722073592833`", ",", "0.6634837625676059`", ",", 
         "0.2505363491776938`", ",", "0.37067727617467144`", ",", 
         "0.38177669557815425`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4588759792873793`", ",", "0.9179062871714975`", ",", 
         "0.9754932425867389`", ",", "0.8437660463197673`", ",", 
         "0.32459368032243713`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "4"}], "}"}]}], "}"}], ",", 
       "0.9145044111818698`", ",", "0.19226948637315724`", ",", 
       "0.4712424279169791`", ",", "0.663907125983603`", ",", 
       "0.20812015294438097`", ",", "0.6187143304155986`", ",", 
       "0.5135955556612913`", ",", "0.937062389154469`", ",", 
       "0.3774621233325803`", ",", "0.22662192703371098`", ",", 
       "0.5978062283092151`", ",", "0.07798459586139808`", ",", 
       "0.8051833245261779`", ",", "0.25344393833365225`", ",", 
       "0.47723402094993184`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.7993968570517263`"}], ",", "7.255749547183577`", ",", 
       "11.123864057460665`", ",", "8.8859173117794`", ",", 
       RowBox[{"-", "23.87071309182656`"}], ",", "0.5284303718575014`", ",", 
       "20.94469880711714`", ",", "39.676832024949256`", ",", 
       RowBox[{"-", "16.14375084584776`"}], ",", "3.5184316983916997`", ",", 
       "8.119966611673874`", ",", "0.731760825694475`", ",", 
       RowBox[{"-", "0.7620588212465618`"}], ",", 
       RowBox[{"-", "1.32885590176496`"}], ",", 
       RowBox[{"-", "7.6373621113469286`"}], ",", 
       RowBox[{"-", "8.049110084482782`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.41450083329379217`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5546469753484842`", ",", "0.8827666621589808`", ",", 
         "0.09545732537177762`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.955624854006413`", ",", "0.6367406881769867`", ",", 
         "0.907273419572242`", ",", "0.2516912790520104`", ",", 
         "0.6310311736839758`", ",", "0.7222362769951168`", ",", 
         "0.7150039331990847`", ",", "0.7804488511350313`", ",", 
         "0.9671240477003727`", ",", "0.5141161240507359`", ",", 
         "0.09628960278348608`", ",", "0.2668532954737399`", ",", 
         "0.03006165854590366`", ",", "0.13665400071815564`", ",", 
         "0.8696676757497751`", ",", "0.6690470671645248`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9520770626845055`", ",", "0.3314706761919777`", ",", 
         "0.6162237374161228`", ",", "0.1918130462145929`"}], "}"}], ",", 
       "0.5375762293907134`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7768237008434935`", ",", "0.733457075257142`", ",", 
         "0.0963557208428153`", ",", "0.5819513753843005`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.14008301266650686`", ",", "0.8261836556849`", ",", 
         "0.8446644417908049`", ",", "0.9509202017003248`", ",", 
         "0.41784673567138997`", ",", "0.11117972248581534`", ",", 
         "0.0642155906557736`", ",", "0.983796153999952`", ",", 
         "0.903730611620654`", ",", "0.014890119702329261`", ",", 
         "0.7973622951820337`", ",", "0.9537344954540483`", ",", 
         "0.7670766109024985`", ",", "0.14522244395255418`", ",", 
         "0.12831522801750894`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.001657432769542779`", ",", "0.4356059347105207`", ",", 
         "0.5289987065364313`", ",", "0.936502181802916`", ",", 
         "0.4640812033788294`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "4"}], "}"}]}], "}"}], ",", 
       "0.6587822338670272`", ",", "0.7955416312792893`", ",", 
       "0.8401464609601007`", ",", "0.8821298279945289`", ",", 
       "0.5186992212005204`", ",", "0.9693579755943894`", ",", 
       "0.9954820191692958`", ",", "0.9312096262942041`", ",", 
       "0.10085248552913034`", ",", "0.858178253108574`", ",", 
       "0.9312664285135223`", ",", "0.9474134722942521`", ",", 
       "0.1971218739084763`", ",", "0.8432881334062448`", ",", 
       "0.1339041333314885`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "9.140338320835466`", ",", "8.353199125389313`", ",", 
       "25.600483624794638`", ",", "25.487083440456313`", ",", 
       RowBox[{"-", "2.0027473431877207`"}], ",", 
       RowBox[{"-", "3.8072651015922734`"}], ",", 
       RowBox[{"-", "4.041120428451894`"}], ",", "5.061325632098105`", ",", 
       RowBox[{"-", "0.6322009493277304`"}], ",", "2.2584497553885496`", ",", 
       "3.172023854306938`", ",", "1.7616452944687762`", ",", 
       "0.8914410097566128`", ",", 
       RowBox[{"-", "0.8500151912172584`"}], ",", "3.150173849057579`", ",", 
       "2.1323545290704518`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.9936789768402038`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4300452630059779`", ",", "0.6980656894536906`", ",", 
         "0.005588905313979575`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.992021544070661`", ",", "0.9944393282954571`", ",", 
         "0.16906698291725925`", ",", "0.06908672351106356`", ",", 
         "0.5279403406918316`", ",", "0.33565709442842995`", ",", 
         "0.37352535163796985`", ",", "0.2289402625509628`", ",", 
         "0.6458105126973027`", ",", "0.8169578732279096`", ",", 
         "0.4041673760435805`", ",", "0.23345824338166699`", ",", 
         "0.7146008864030986`", ",", "0.7161053876987793`", ",", 
         "0.5459891229350065`", ",", "0.3021918148681448`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7671874141088464`", ",", "0.5189835137903029`", ",", 
         "0.7027009895287617`", ",", "0.16828768153665624`"}], "}"}], ",", 
       "0.7735084372686426`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.08893825078432512`", ",", "0.00463530007507115`", ",", 
         "0.16269877622267667`", ",", "0.7814868931979817`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.09449892248886797`", ",", "0.8355683171578119`", ",", 
         "0.09361205271161312`", ",", "0.25354655250615005`", ",", 
         "0.758841828060438`", ",", "0.4620429655198421`", ",", 
         "0.8646717901606503`", ",", "0.6077360398088473`", ",", 
         "0.9418839548325284`", ",", "0.05787558947626158`", ",", 
         "0.6312135467789833`", ",", "0.8931351534057488`", ",", 
         "0.22577856713374914`", ",", "0.5118864665412551`", ",", 
         "0.32902173191083856`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.12594773929690234`", ",", "0.7067950533434462`", ",", 
         "0.8091854770124933`", ",", "0.1607340503741823`", ",", 
         "0.3524393020282597`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.617856802559121`", ",", "0.8045501769374223`", ",", 
       "0.9980352741515056`", ",", "0.5709524088302781`", ",", 
       "0.5233578800702531`", ",", "0.9689818597796103`", ",", 
       "0.9044232214398925`", ",", "0.317405856324128`", ",", 
       "0.7645160520098151`", ",", "0.5069388942597682`", ",", 
       "0.039751431279242216`", ",", "0.7096698165152807`", ",", 
       "0.8226320971772867`", ",", "0.44906330478350664`", ",", 
       "0.4085378845002589`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.34734163910397187`"}], ",", 
       RowBox[{"-", "0.7345199460593751`"}], ",", "0.8243985411312328`", ",", 
       "0.15325325234590953`", ",", "9.547418278927719`", ",", 
       "8.3214742676688`", ",", "13.236876587471206`", ",", 
       "16.420585374498756`", ",", "0.03460217969303894`", ",", 
       RowBox[{"-", "0.7148785639325221`"}], ",", "3.7909452231836362`", ",", 
       "2.949317554192819`", ",", 
       RowBox[{"-", "1.0427901369913803`"}], ",", "3.975276443054158`", ",", 
       "4.3595466632979845`", ",", "3.5703388669012757`"}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.505762724487878*^9, 3.505762745419364*^9}, 
   3.505762809196011*^9, 3.505762844380271*^9, 3.50576663940059*^9, {
   3.505766734558123*^9, 3.505766753584869*^9}, 3.506006394513453*^9, 
   3.506006476450968*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["DQfuncDGamma test vectors", "Subsubsection",
 CellChangeTimes->{{3.505673737120636*^9, 3.505673743138568*^9}, {
  3.505677420790615*^9, 3.505677421061162*^9}, {3.505678836450431*^9, 
  3.505678837409128*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "makevararray", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"makevararray", "[", 
    RowBox[{"s_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ToExpression", "[", 
      RowBox[{"s", " ", "<>", " ", 
       RowBox[{"ToString", "[", "i", "]"}]}], "]"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"i", ",", " ", "1", ",", " ", "n"}], " ", "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Clear", "[", "dqfuncdgamma", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dqfuncdgamma", "[", 
    RowBox[{
    "\[Kappa]_", ",", " ", "log\[Alpha]_", ",", " ", "\[Tau]_", ",", " ", 
     "\[Gamma]_", ",", " ", "\[Rho]_", ",", " ", "log\[Lambda]_", ",", " ", 
     "pz_", ",", " ", "priorz_", ",", " ", "d_", ",", " ", "plog\[Alpha]_", 
     ",", " ", "p\[Tau]_", ",", " ", "p\[Gamma]_", ",", " ", "p\[Kappa]_", 
     ",", " ", "p\[Rho]_", ",", " ", "plog\[Lambda]_"}], "]"}], " ", ":=", 
   " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "tmp", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"tmp", " ", "=", " ", 
       RowBox[{"makevararray", "[", 
        RowBox[{"\"\<\[Gamma]\>\"", ",", " ", 
         RowBox[{"Length", "[", "\[Gamma]", "]"}]}], "]"}]}], ";", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"qfunc", "[", 
          RowBox[{
          "\[Kappa]", ",", "log\[Alpha]", ",", " ", "\[Tau]", ",", " ", "tmp",
            ",", " ", "\[Rho]", ",", " ", "log\[Lambda]", ",", " ", "pz", ",",
            " ", "priorz", ",", " ", "d", ",", " ", "plog\[Alpha]", ",", " ", 
           "p\[Tau]", ",", " ", "p\[Gamma]", ",", " ", "p\[Kappa]", ",", " ", 
           "p\[Rho]", ",", " ", "plog\[Lambda]"}], " ", "]"}], ",", " ", 
         RowBox[{"{", "tmp", "}"}]}], "]"}], " ", "/.", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"ToExpression", "[", 
           RowBox[{
            RowBox[{"ToString", "[", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "<>", " ", 
            "\"\< -> \>\"", " ", "<>", " ", 
            RowBox[{"ToString", "[", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], "&"}], " ", "/@", 
         RowBox[{"Transpose", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"makevararray", "[", 
             RowBox[{"\"\<\[Gamma]\>\"", ",", " ", 
              RowBox[{"Length", "[", "\[Gamma]", "]"}]}], "]"}], ",", " ", 
            "\[Gamma]"}], "}"}], "]"}]}], ")"}]}]}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.5056774446089487`*^9, 3.50567749584249*^9}, {
  3.505677542336792*^9, 3.5056775431973743`*^9}, {3.505677591318882*^9, 
  3.505677652621853*^9}, {3.505678843073388*^9, 3.505678924642507*^9}, {
  3.505694683977412*^9, 3.505694686177745*^9}, {3.505766817089053*^9, 
  3.505766833488392*^9}, {3.506005823353654*^9, 3.506005843815054*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nworkers", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nworkers", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nimages", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nimages", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nratings", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nratings", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"!", " ", 
             RowBox[{"ListQ", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
            RowBox[{"!", " ", 
             RowBox[{"IntegerQ", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
         RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
      " ", "/@", " ", "#"}], ",", " ", 
     RowBox[{"dqfuncdgamma", "[", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", "7", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "8", "]"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "+", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{"1", "+", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "&"}], " ", "/@", " ", 
        RowBox[{"#", "[", 
         RowBox[{"[", "9", "]"}], "]"}]}], ",", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "10", "]"}], "]"}]}], "]"}]}], "]"}], ",", " ", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "11", "]"}], "]"}]}], "]"}]}], "]"}], ",", 
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "12", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "13", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "14", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "15", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "16", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "17", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "18", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "19", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "20", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "21", "]"}], "]"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "22", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "23", "]"}], "]"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "24", "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], 
    "}"}], "&"}], "/@", "\[IndentingNewLine]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nimages"}], " ", "}"}]}], 
       "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "}"}]}], "]"}], ",", 
        " ", 
        RowBox[{"{", " ", 
         RowBox[{"k", ",", " ", "1", ",", " ", "nworkers"}], "}"}]}], "]"}], 
      ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", 
          RowBox[{"nlabels", " ", "-", " ", "1"}]}], "}"}]}], "]"}], ",", " ",
       "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nworkers"}], " ", "}"}]}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "nimages"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nworkers", " ", "-", " ", "1"}]}], "]"}], ",", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nimages", " ", "-", " ", "1"}]}], "]"}], ",", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], "}"}], ",", 
        " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nratings"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", " ", 
     RowBox[{"foo", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.504016424813343*^9, 3.504016580297758*^9}, {
   3.504018269599441*^9, 3.504018279219314*^9}, {3.504018359153508*^9, 
   3.504018387475568*^9}, {3.5040184327040863`*^9, 3.504018509500141*^9}, {
   3.504018861653284*^9, 3.504018920277594*^9}, {3.504019049785894*^9, 
   3.504019065803638*^9}, 3.504019184180941*^9, {3.504059801963703*^9, 
   3.504059813764331*^9}, 3.5040599982883453`*^9, {3.504060100407703*^9, 
   3.504060104803857*^9}, 3.504060440796597*^9, {3.504060503267675*^9, 
   3.504060525182757*^9}, {3.50456047953319*^9, 3.504560681387557*^9}, {
   3.504577463729417*^9, 3.504577464011519*^9}, {3.504577589051256*^9, 
   3.504577590132493*^9}, {3.504577632742776*^9, 3.5045776330605373`*^9}, {
   3.504740502012248*^9, 3.504740503922497*^9}, {3.504740727150861*^9, 
   3.504740736352736*^9}, 3.504876469621917*^9, {3.5055962008030443`*^9, 
   3.505596275077857*^9}, {3.505596319880871*^9, 3.505596373226162*^9}, {
   3.505596415459552*^9, 3.505596505766666*^9}, {3.50559654044011*^9, 
   3.505596540734797*^9}, 3.505672802683957*^9, {3.505673770320092*^9, 
   3.505673773863884*^9}, 3.505675171786241*^9, {3.505677519217095*^9, 
   3.505677530465034*^9}, {3.5056777174285316`*^9, 3.505677721062014*^9}, 
   3.50567787277495*^9, {3.505678927757328*^9, 3.5056789575172977`*^9}, {
   3.5056946902744827`*^9, 3.505694709450584*^9}, {3.505762905947138*^9, 
   3.505762913034638*^9}, {3.505763010252871*^9, 3.505763010395494*^9}, 
   3.505763080966708*^9, {3.505766809365793*^9, 3.505766814330158*^9}, 
   3.505766929390884*^9, {3.506005870579661*^9, 3.50600587244874*^9}, {
   3.506005970747233*^9, 3.506005992290304*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7118523467987132`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.33580637412841263`", ",", "0.7945612986981013`", ",", 
         "0.8131491991566931`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.47832672351327504`", ",", "0.9077634926854665`", ",", 
         "0.4145858373493403`", ",", "0.812039169024965`", ",", 
         "0.4650628049478169`", ",", "0.3664772018234142`", ",", 
         "0.37674339803883095`", ",", "0.14848207475229497`", ",", 
         "0.38357640391420394`", ",", "0.2402067699005418`", ",", 
         "0.3077368921110027`", ",", "0.5573924525417514`", ",", 
         "0.8278960699023541`", ",", "0.38493110956268883`", ",", 
         "0.588434105180797`", ",", "0.443525841128673`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3678650024049512`", ",", "0.5277670178902526`", ",", 
         "0.6787085498120884`", ",", "0.966158765987194`"}], "}"}], ",", 
       "0.656012655606238`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.19196064376183997`", ",", "0.8841472511139871`", ",", 
         "0.1530095668305008`", ",", "0.17768593209296296`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.28419715107637344`", ",", "0.4695614137646468`", ",", 
         "0.3409703978055358`", ",", "0.7126231271451461`", ",", 
         "0.9177199492529593`", ",", "0.09281801572581583`", ",", 
         "0.19248832305324082`", ",", "0.32904672323094214`", ",", 
         "0.6775131793524175`", ",", "0.7850811236148132`", ",", 
         "0.6350958705114894`", ",", "0.5011506533285881`", ",", 
         "0.2925820697897286`", ",", "0.19664701843401616`", ",", 
         "0.1915700293828164`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.13328565092363692`", ",", "0.7648150518994761`", ",", 
         "0.5179384686219278`", ",", "0.22541126339562242`", ",", 
         "0.4772729953173989`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.5728544081376361`", ",", "0.6337912175079408`", ",", 
       "0.07240169656512162`", ",", "0.29958706322443596`", ",", 
       "0.28865725706126266`", ",", "0.16422980374329393`", ",", 
       "0.7314312987595858`", ",", "0.5869639360792899`", ",", 
       "0.3709373078083034`", ",", "0.0714117880174781`", ",", 
       "0.538942975706345`", ",", "0.25791721284834773`", ",", 
       "0.693424128455886`", ",", "0.2863306644026649`", ",", 
       "0.9038471051948557`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.590670488233512`"}], ",", 
       RowBox[{"-", "9.392293004026836`"}], ",", 
       RowBox[{"-", "2.4044973028166194`"}], ",", 
       RowBox[{"-", "121.45625309605379`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7567665595197596`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4008420586661573`", ",", "0.08968364596864878`", ",", 
         "0.7122770758120393`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6234809085961227`", ",", "0.6360270067666812`", ",", 
         "0.571745177346721`", ",", "0.4868658124164168`", ",", 
         "0.14620791327872376`", ",", "0.0631725986290451`", ",", 
         "0.9379539598387803`", ",", "0.4144641158512952`", ",", 
         "0.8466208500542878`", ",", "0.7745153415677825`", ",", 
         "0.7737241560954864`", ",", "0.6830328170917094`", ",", 
         "0.25965691397499796`", ",", "0.40357803375947904`", ",", 
         "0.7023123680780082`", ",", "0.14408984138536438`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.0017397011266502252`", ",", "0.7101539053035931`", ",", 
         "0.4159817036753433`", ",", "0.24024273619050876`"}], "}"}], ",", 
       "0.24497314160689063`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3093118466374358`", ",", "0.3262980577066945`", ",", 
         "0.5279656603784695`", ",", "0.621492233010768`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6732848398707546`", ",", "0.7545528803599735`", ",", 
         "0.0410998479620527`", ",", "0.4752843197320442`", ",", 
         "0.6101122412417095`", ",", "0.8165989205211932`", ",", 
         "0.6266357321107575`", ",", "0.6286634696777564`", ",", 
         "0.835596899673927`", ",", "0.04287476442570691`", ",", 
         "0.9436029150190481`", ",", "0.3690065557027585`", ",", 
         "0.43201886591444794`", ",", "0.3405623963476987`", ",", 
         "0.7995130736336837`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.36726685457610825`", ",", "0.7218649606108548`", ",", 
         "0.9245806926723553`", ",", "0.559270337443175`", ",", 
         "0.12229371296921762`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "4"}], "}"}]}], "}"}], ",", 
       "0.41255311397341904`", ",", "0.5982826349656608`", ",", 
       "0.031304677064705466`", ",", "0.5008014799584497`", ",", 
       "0.7392682741026645`", ",", "0.8437297546056873`", ",", 
       "0.9902048291026527`", ",", "0.025517160226405454`", ",", 
       "0.129156032860955`", ",", "0.027130834084494054`", ",", 
       "0.36356909699189527`", ",", "0.39685369054864905`", ",", 
       "0.293559133187028`", ",", "0.9842560696587871`", ",", 
       "0.41996618197284713`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5.339418149408978`", ",", 
       RowBox[{"-", "2.6503838704347893`"}], ",", "885.5855492623327`", ",", 
       RowBox[{"-", "148.77238554142932`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.02784713484589056`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.86154026727258`", ",", "0.6436936733110885`", ",", 
         "0.6204531083391635`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6605802802697823`", ",", "0.1396753066617252`", ",", 
         "0.7191129806387331`", ",", "0.06118277089598843`", ",", 
         "0.5382865673005647`", ",", "0.7271221926883061`", ",", 
         "0.12083034567307227`", ",", "0.029878093831282957`", ",", 
         "0.037485087342115024`", ",", "0.9878539185856416`", ",", 
         "0.27710059106738494`", ",", "0.03967326472863019`", ",", 
         "0.011967927115709572`", ",", "0.8586978857246866`", ",", 
         "0.2499697569828909`", ",", "0.6761041677367349`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6151142365670605`", ",", "0.5651387525376587`", ",", 
         "0.2657136873241038`", ",", "0.2561379857638878`"}], "}"}], ",", 
       "0.5872671017211699`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7035984852650786`", ",", "0.6220200140130153`", ",", 
         "0.6356848774247243`", ",", "0.9266868214513877`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5639231786033534`", ",", "0.9029070333742822`", ",", 
         "0.5745021065287359`", ",", "0.38840025415082297`", ",", 
         "0.8368009859150473`", ",", "0.78207668770121`", ",", 
         "0.544624012697453`", ",", "0.35091516680870793`", ",", 
         "0.8489470673294056`", ",", "0.5049760966338249`", ",", 
         "0.5049507479688228`", ",", "0.3389472396929984`", ",", 
         "0.990249181604719`", ",", "0.25500633965093406`", ",", 
         "0.8288465802320879`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7238330031259378`", ",", "0.4251104290670603`", ",", 
         "0.9892926523268303`", ",", "0.5727085944682001`", ",", 
         "0.13656590140476788`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "4"}], "}"}]}], "}"}], ",", 
       "0.7215119438019817`", ",", "0.367272638313815`", ",", 
       "0.9370237170434758`", ",", "0.2098790799533802`", ",", 
       "0.1575887651986283`", ",", "0.46436560493953283`", ",", 
       "0.3625216105147398`", ",", "0.8214788258025573`", ",", 
       "0.32078777928358104`", ",", "0.6822889172383229`", ",", 
       "0.8178975978172868`", ",", "0.4705636589938493`", ",", 
       "0.47184071195417543`", ",", "0.1773128206044979`", ",", 
       "0.31294684984846405`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.6782084975018536`"}], ",", "1.466782989440938`", ",", 
       "2.3983259783348405`", ",", 
       RowBox[{"-", "1.4751418676492674`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.13161641930085094`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.48159153034945645`", ",", "0.9223064809535638`", ",", 
         "0.48410026961637614`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4077834161749131`", ",", "0.05648110128239612`", ",", 
         "0.9330138286267335`", ",", "0.9113916751481761`", ",", 
         "0.2712175147701452`", ",", "0.3349691574804144`", ",", 
         "0.5657411903129186`", ",", "0.9743679581047003`", ",", 
         "0.06133843481676499`", ",", "0.17738039228178612`", ",", 
         "0.10137558537338578`", ",", "0.6118463475899606`", ",", 
         "0.23985960901420775`", ",", "0.8565926129982051`", ",", 
         "0.4190866681350629`", ",", "0.7939487497726737`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7692959500203584`", ",", "0.3847519010440297`", ",", 
         "0.241773847530565`", ",", "0.4810018999242097`"}], "}"}], ",", 
       "0.6376795307195076`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9031603706945732`", ",", "0.31946736657700114`", ",", 
         "0.9969016303078335`", ",", "0.22989611454459444`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8466792694121771`", ",", "0.38645353795026754`", ",", 
         "0.08550995515965748`", ",", "0.9586785997744492`", ",", 
         "0.5117101119317627`", ",", "0.820712347637349`", ",", 
         "0.11114199705495713`", ",", "0.8973401649576842`", ",", 
         "0.3343297196499766`", ",", "0.7193367622639631`", ",", 
         "0.4992956494649966`", ",", "0.6574805559434764`", ",", 
         "0.47773710665177155`", ",", "0.30025009412890025`", ",", 
         "0.7053468996923229`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.888184605923118`", ",", "0.09298520560774184`", ",", 
         "0.05847624659833528`", ",", "0.22434499976811315`", ",", 
         "0.25050507520361054`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
       "0.1898248349131686`", ",", "0.7390088800213341`", ",", 
       "0.2274433694602796`", ",", "0.02060896065901609`", ",", 
       "0.34314556550099146`", ",", "0.3525553420710666`", ",", 
       "0.14193341430062212`", ",", "0.06193036088456687`", ",", 
       "0.8314354535692288`", ",", "0.5318429944337176`", ",", 
       "0.030791417245664976`", ",", "0.16459019592688265`", ",", 
       "0.49710573391925217`", ",", "0.8125062321697545`", ",", 
       "0.5314957677806684`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1279.5997605306256`"}], ",", 
       RowBox[{"-", "0.5427182430135195`"}], ",", 
       RowBox[{"-", "24.105053436010095`"}], ",", "3.7429561256835227`"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.5071096399834062`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.019368627267480627`", ",", "0.5122561380408541`", ",", 
         "0.8261488680883455`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6189250340602881`", ",", "0.9263834216597387`", ",", 
         "0.4537798914425189`", ",", "0.6018038683202324`", ",", 
         "0.3684199588566776`", ",", "0.7365585867465702`", ",", 
         "0.7147710114211847`", ",", "0.3743604988599528`", ",", 
         "0.3478109981976615`", ",", "0.3934130212455787`", ",", 
         "0.3622156693501182`", ",", "0.23242708455933073`", ",", 
         "0.28588063731309465`", ",", "0.56197756767635`", ",", 
         "0.8303726749164005`", ",", "0.20163566731366575`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.12129044138621199`", ",", "0.0648718337570978`", ",", 
         "0.017866442746646078`", ",", "0.6701398995329974`"}], "}"}], ",", 
       "0.6141808014028058`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.04550320648961718`", ",", "0.5056103047057919`", ",", 
         "0.8439910314446518`", ",", "0.9952557673425177`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.1191197848298784`", ",", "0.051830413263273006`", ",", 
         "0.24218716312441937`", ",", "0.6268358084858401`", ",", 
         "0.3825611980833082`", ",", "0.33705940184208827`", ",", 
         "0.8678266642644665`", ",", "0.2790248102881786`", ",", 
         "0.9891481768377295`", ",", "0.9748437324919701`", ",", 
         "0.6353995797051358`", ",", "0.993144172975084`", ",", 
         "0.42717060916137956`", ",", "0.14447105757556958`", ",", 
         "0.4337639123914701`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.871853731588872`", ",", "0.36229877540428174`", ",", 
         "0.1266046148289235`", ",", "0.7636240128584728`", ",", 
         "0.25767293018606613`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
       "0.31679556891466454`", ",", "0.6209943101231316`", ",", 
       "0.919632981413821`", ",", "0.26241716284354843`", ",", 
       "0.19767578408478617`", ",", "0.5691638968598586`", ",", 
       "0.6774458182894015`", ",", "0.6355813543577084`", ",", 
       "0.815114586001478`", ",", "0.23210449501777033`", ",", 
       "0.809619154024935`", ",", "0.3565565440695297`", ",", 
       "0.8259664091637485`", ",", "0.2572607625258002`", ",", 
       "0.17421957431979918`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "14.538724637379483`", ",", "6.526754579100276`", ",", 
       "7.570197028754977`", ",", 
       RowBox[{"-", "0.6030732205401215`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.3634123710944457`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3987958000023689`", ",", "0.11278970495023065`", ",", 
         "0.7404556619283291`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4915586395055737`", ",", "0.0364970245980872`", ",", 
         "0.9861850901213072`", ",", "0.9768316490698563`", ",", 
         "0.23388570931950753`", ",", "0.7197014556834226`", ",", 
         "0.36519077999817556`", ",", "0.05719866765603536`", ",", 
         "0.9714685464759591`", ",", "0.5220256715986364`", ",", 
         "0.7960268831383169`", ",", "0.3797528493666338`", ",", 
         "0.3358871921182508`", ",", "0.7069110855971585`", ",", 
         "0.5639223881205466`", ",", "0.5701336953416988`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9793306480487212`", ",", "0.88094467643341`", ",", 
         "0.3066616255947464`", ",", "0.39591412102189955`"}], "}"}], ",", 
       "0.6159182769542755`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4821488764310411`", ",", "0.19387192064451575`", ",", 
         "0.6554584590935705`", ",", "0.12435963744870178`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.44565185183295386`", ",", "0.2076868305232086`", ",", 
         "0.6786268100237142`", ",", "0.8904739281291942`", ",", 
         "0.7259503961495313`", ",", "0.8424960505250331`", ",", 
         "0.6214281423676787`", ",", "0.9190053816532351`", ",", 
         "0.20392472455089478`", ",", "0.0464691673867161`", ",", 
         "0.241675293001045`", ",", "0.5831181895349843`", ",", 
         "0.4970136389537363`", ",", "0.48254677926616946`", ",", 
         "0.6715415976593463`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6037875414862631`", ",", "0.6160689625203263`", ",", 
         "0.17588515367142307`", ",", "0.2756274766374467`", ",", 
         "0.9878692645319876`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.13392008608928516`", ",", "0.9820132330269074`", ",", 
       "0.6201690175438762`", ",", "0.8635096270832859`", ",", 
       "0.6882682342563313`", ",", "0.7743264025036987`", ",", 
       "0.941542207520162`", ",", "0.9730356989540917`", ",", 
       "0.9623178381068`", ",", "0.9318303519786656`", ",", 
       "0.3201140651524833`", ",", "0.05403031730085655`", ",", 
       "0.7583931135559053`", ",", "0.8853611845919496`", ",", 
       "0.07843877215143828`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2.435867927970267`"}], ",", 
       RowBox[{"-", "1.9168774056198274`"}], ",", "2.2101173073032676`", ",", 
       "1.0673653382711144`"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.47091212776587227`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.26137947460216904`", ",", "0.40281440532578006`", ",", 
         "0.406897174492092`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8671245862796091`", ",", "0.6453105120818428`", ",", 
         "0.22692925165435698`", ",", "0.1312696978546453`", ",", 
         "0.8792553217476214`", ",", "0.5113904259925576`", ",", 
         "0.2449160186274497`", ",", "0.511100680310769`", ",", 
         "0.015745694664335477`", ",", "0.8231221917362264`", ",", 
         "0.470589616123751`", ",", "0.569558472790607`", ",", 
         "0.0427099957102438`", ",", "0.8608043536294263`", ",", 
         "0.5387592641450853`", ",", "0.24944440763812367`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9886796784093872`", ",", "0.10241124007352097`", ",", 
         "0.6533980795531359`", ",", "0.1710056354866854`"}], "}"}], ",", 
       "0.517767550643515`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8410317654713519`", ",", "0.25058367422735583`", ",", 
         "0.7641084609945934`", ",", "0.6506429643639059`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.19572125338950916`", ",", "0.023654422572998823`", ",", 
         "0.632838763139948`", ",", "0.7713876426162846`", ",", 
         "0.6843308273969515`", ",", "0.7787384039455492`", ",", 
         "0.12173808282917901`", ",", "0.7556419479519491`", ",", 
         "0.8612086356607253`", ",", "0.30814878782179816`", ",", 
         "0.5521796100385721`", ",", "0.7129319522417052`", ",", 
         "0.00040428203129896445`", ",", "0.7693895236767128`", ",", 
         "0.3027352024004484`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.724252273832318`", ",", "0.897993041957778`", ",", 
         "0.11599144412357691`", ",", "0.13172956691376297`", ",", 
         "0.20648472318880298`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.05696127648642606`", ",", "0.8654077698962211`", ",", 
       "0.3676211059191696`", ",", "0.5558417588248971`", ",", 
       "0.8612400230969169`", ",", "0.8417533473232223`", ",", 
       "0.7347823427792215`", ",", "0.7844541162086125`", ",", 
       "0.17690919569996535`", ",", "0.06301494337767315`", ",", 
       "0.6130442599500425`", ",", "0.028812168256663485`", ",", 
       "0.31570056003924013`", ",", "0.754866155555875`", ",", 
       "0.06086464991147047`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "4.880764757433713`"}], ",", "4.316901965856818`", ",", 
       RowBox[{"-", "1.3797666493824177`"}], ",", "2.524566012176905`"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.31588021601495825`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.31529627800794113`", ",", "0.9854766318791622`", ",", 
         "0.7581294475110221`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5916279421826403`", ",", "0.4173032360501632`", ",", 
         "0.8694851877555854`", ",", "0.6263998805972592`", ",", 
         "0.38514321899383724`", ",", "0.3603419595637371`", ",", 
         "0.0040774178593642185`", ",", "0.2587787746780896`", ",", 
         "0.8293014601689401`", ",", "0.4991019364668202`", ",", 
         "0.16232407053614195`", ",", "0.523996431898868`", ",", 
         "0.04484734396032762`", ",", "0.3221927407668549`", ",", 
         "0.0993091271584688`", ",", "0.9109521719488255`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.016035175703664133`", ",", "0.006492180727614742`", ",", 
         "0.3444429716025938`", ",", "0.850087522037355`"}], "}"}], ",", 
       "0.7001549596887059`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6911959027196736`", ",", "0.35896633972343156`", ",", 
         "0.09195807452633295`", ",", "0.10852701750606568`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.27389266666951045`", ",", "0.48948115196784625`", ",", 
         "0.4655581939290738`", ",", "0.7233837985122284`", ",", 
         "0.9135507071057734`", ",", "0.48540373410848203`", ",", 
         "0.20677941925098425`", ",", "0.8940823383432883`", ",", 
         "0.41444877063895313`", ",", "0.3230796635723401`", ",", 
         "0.6827829873521162`", ",", "0.8492349943829607`", ",", 
         "0.09225602987209824`", ",", "0.2237705364138713`", ",", 
         "0.7718308154032907`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8331998186792965`", ",", "0.08576384914448351`", ",", 
         "0.8793275648112775`", ",", "0.9217432933659356`", ",", 
         "0.13304485899059063`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.3945679464248099`", ",", "0.5203612250878459`", ",", 
       "0.8297852188396027`", ",", "0.02451784148452495`", ",", 
       "0.1206752797552995`", ",", "0.03088007311999967`", ",", 
       "0.3642270249105289`", ",", "0.3011340429722965`", ",", 
       "0.20712457264952616`", ",", "0.5454763390115176`", ",", 
       "0.15744760565954463`", ",", "0.40705170462900825`", ",", 
       "0.7926758020105731`", ",", "0.22239667543917754`", ",", 
       "0.4746646183074284`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1360.3115728508606`", ",", "125.55076375258739`", ",", 
       RowBox[{"-", "0.6776862951950156`"}], ",", 
       RowBox[{"-", "6.150268357066813`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.5578167102460476`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7004197721384748`", ",", "0.9986261390253063`", ",", 
         "0.7028338029041377`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.724616891566751`", ",", "0.6146559229939913`", ",", 
         "0.11929857421402876`", ",", "0.781090509538202`", ",", 
         "0.5915720325761604`", ",", "0.2200879765691814`", ",", 
         "0.5989373491261828`", ",", "0.9513052906985994`", ",", 
         "0.5670541910916355`", ",", "0.09941269681388189`", ",", 
         "0.5680572760061832`", ",", "0.5870782657880704`", ",", 
         "0.26592014811933895`", ",", "0.8922881241643558`", ",", 
         "0.022580936994665526`", ",", "0.42963066012852585`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8588684434903308`", ",", "0.09961232215378266`", ",", 
         "0.8001842615554879`", ",", "0.9549660418210975`"}], "}"}], ",", 
       "0.30105173324428314`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.39919255001530785`", ",", "0.8015581225301818`", ",", 
         "0.2521322389169598`", ",", "0.5764348416775321`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7845366270213165`", ",", "0.682259548316153`", ",", 
         "0.4710417293787577`", ",", "0.9848628091013717`", ",", 
         "0.5644486504521351`", ",", "0.08332219918997012`", ",", 
         "0.5197364386801584`", ",", "0.41780861800973623`", ",", 
         "0.4650359536382533`", ",", "0.5152649231837869`", ",", 
         "0.9326581728920879`", ",", "0.15188846989039728`", ",", 
         "0.5727478294738976`", ",", "0.49268398618912146`", ",", 
         "0.5030275127635621`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2930200264000666`", ",", "0.4731355073201149`", ",", 
         "0.6924997246336334`", ",", "0.5480614709424646`", ",", 
         "0.9919682931557834`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "4"}], "}"}]}], "}"}], ",", 
       "0.07394295730480703`", ",", "0.8909416021034517`", ",", 
       "0.2959292320255048`", ",", "0.41553345147825127`", ",", 
       "0.2894063302834905`", ",", "0.20868205378729876`", ",", 
       "0.824887502646747`", ",", "0.4306706423768796`", ",", 
       "0.7249576798313553`", ",", "0.12535985459732862`", ",", 
       "0.3051510639665887`", ",", "0.012862024367143336`", ",", 
       "0.25992172619310205`", ",", "0.6100949314135417`", ",", 
       "0.3724928910745008`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "4.880728472078791`"}], ",", "6.157240475545932`", ",", 
       RowBox[{"-", "2.2501782404709947`"}], ",", 
       RowBox[{"-", "15.98508334943441`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.8609735544767461`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6871738967192045`", ",", "0.11741094522442024`", ",", 
         "0.8694653783109387`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5679535280766794`", ",", "0.21403838939908965`", ",", 
         "0.4249112205907868`", ",", "0.3214039073684742`", ",", 
         "0.575985234920896`", ",", "0.1400954320942826`", ",", 
         "0.533969618487335`", ",", "0.025474675342969363`", ",", 
         "0.1604517834426448`", ",", "0.8506891018107922`", ",", 
         "0.3252875647000363`", ",", "0.20058717269622228`", ",", 
         "0.7297811410657652`", ",", "0.1257314219794368`", ",", 
         "0.19992771010270766`", ",", "0.8954361087296336`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7169191166986218`", ",", "0.8658096957863347`", ",", 
         "0.589832778689166`", ",", "0.5229432176551327`"}], "}"}], ",", 
       "0.8559455622218758`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.17863579906713017`", ",", "0.47242183346474576`", ",", 
         "0.653477839344194`", ",", "0.28799203414519636`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9645974096680405`", ",", "0.047510612873958954`", ",", 
         "0.3320739319757199`", ",", "0.7120067992243003`", ",", 
         "0.8245019775737579`", ",", "0.5135409943866239`", ",", 
         "0.3065992566327505`", ",", "0.5515550157816554`", ",", 
         "0.9738128757629658`", ",", "0.18825342968658762`", ",", 
         "0.10601208393652821`", ",", "0.8217738747158903`", ",", 
         "0.8480814537835291`", ",", "0.9883257195838799`", ",", 
         "0.2105759752068946`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.10485475801726842`", ",", "0.9822717579971942`", ",", 
         "0.39849294089471404`", ",", "0.6876327575517618`", ",", 
         "0.24890919579539258`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.8036359589300641`", ",", "0.9260711074299682`", ",", 
       "0.034154918207567796`", ",", "0.9609171616501962`", ",", 
       "0.8390385492620236`", ",", "0.8785604945560094`", ",", 
       "0.7020809862318479`", ",", "0.24891036242589598`", ",", 
       "0.014536571688265654`", ",", "0.36501950016938545`", ",", 
       "0.39548172959909744`", ",", "0.6973553466442405`", ",", 
       "0.040723695925299855`", ",", "0.1767660704827978`", ",", 
       "0.2894696456625692`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.711327521830794`"}], ",", 
       RowBox[{"-", "2.5214686016667964`"}], ",", "0.7911712888489033`", ",", 
       
       RowBox[{"-", "4.572345952114867`"}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.505673776362035*^9, 3.50567517241039*^9, {3.5056775264568243`*^9, 
   3.505677545949561*^9}, 3.505677656556918*^9, {3.50567772169921*^9, 
   3.505677725412856*^9}, 3.505677873473806*^9, {3.5056789291417418`*^9, 
   3.5056789578623323`*^9}, {3.50569469147577*^9, 3.5056947097113333`*^9}, 
   3.505762918520453*^9, 3.505763011018845*^9, 3.505763081679722*^9, 
   3.505766838500368*^9, 3.505766929769425*^9, 3.5060058728782797`*^9, {
   3.506005971660839*^9, 3.506005992818713*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["DQfuncDRho test vectors", "Subsubsection",
 CellChangeTimes->{{3.505673737120636*^9, 3.505673743138568*^9}, {
  3.505766974004909*^9, 3.505766975387628*^9}, {3.5060052733970547`*^9, 
  3.5060052744195013`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "dqfuncdrho", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dqfuncdrho", "[", 
   RowBox[{
   "\[Kappa]_", ",", " ", "log\[Alpha]_", ",", " ", "\[Tau]_", ",", " ", 
    "\[Gamma]_", ",", " ", "\[Rho]_", ",", " ", "log\[Lambda]_", ",", " ", 
    "pz_", ",", " ", "priorz_", ",", " ", "d_", ",", " ", "plog\[Alpha]_", 
    ",", " ", "p\[Tau]_", ",", " ", "p\[Gamma]_", ",", " ", "p\[Kappa]_", ",",
     " ", "p\[Rho]_", ",", " ", "plog\[Lambda]_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"qfunc", "[", 
      RowBox[{
      "\[Kappa]", ",", "log\[Alpha]", ",", " ", "\[Tau]", ",", " ", 
       "\[Gamma]", ",", " ", "\[Rho]1", ",", " ", "log\[Lambda]", ",", " ", 
       "pz", ",", " ", "priorz", ",", " ", "d", ",", " ", "plog\[Alpha]", ",",
        " ", "p\[Tau]", ",", " ", "p\[Gamma]", ",", " ", "p\[Kappa]", ",", 
       " ", "p\[Rho]", ",", " ", "plog\[Lambda]"}], " ", "]"}], ",", " ", 
     "\[Rho]1"}], "]"}], " ", "/.", 
   RowBox[{"\[Rho]1", " ", "\[Rule]", " ", "\[Rho]"}]}]}]}], "Input",
 CellChangeTimes->{{3.5056944305518713`*^9, 3.505694444058676*^9}, {
  3.5057604526719418`*^9, 3.505760553899432*^9}, {3.505766175548167*^9, 
  3.505766201826927*^9}, {3.50576698016413*^9, 3.505767015625113*^9}, {
  3.50600468024791*^9, 3.506004721901828*^9}, {3.5060052762146273`*^9, 
  3.5060052958291597`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nworkers", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nworkers", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nimages", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nimages", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nratings", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nratings", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"!", " ", 
             RowBox[{"ListQ", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
            RowBox[{"!", " ", 
             RowBox[{"IntegerQ", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
         RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
      " ", "/@", " ", "#"}], ",", " ", 
     RowBox[{"dqfuncdrho", "[", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", "7", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "8", "]"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "+", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{"1", "+", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "&"}], " ", "/@", " ", 
        RowBox[{"#", "[", 
         RowBox[{"[", "9", "]"}], "]"}]}], ",", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "10", "]"}], "]"}]}], "]"}]}], "]"}], ",", " ", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "11", "]"}], "]"}]}], "]"}]}], "]"}], ",", 
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "12", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "13", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "14", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "15", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "16", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "17", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "18", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "19", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "20", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "21", "]"}], "]"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "22", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "23", "]"}], "]"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "24", "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], 
    "}"}], "&"}], "/@", "\[IndentingNewLine]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nimages"}], " ", "}"}]}], 
       "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "}"}]}], "]"}], ",", 
        " ", 
        RowBox[{"{", " ", 
         RowBox[{"k", ",", " ", "1", ",", " ", "nworkers"}], "}"}]}], "]"}], 
      ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", 
          RowBox[{"nlabels", " ", "-", " ", "1"}]}], "}"}]}], "]"}], ",", " ",
       "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nworkers"}], " ", "}"}]}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "nimages"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nworkers", " ", "-", " ", "1"}]}], "]"}], ",", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nimages", " ", "-", " ", "1"}]}], "]"}], ",", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], "}"}], ",", 
        " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nratings"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", " ", 
     RowBox[{"foo", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.504016424813343*^9, 3.504016580297758*^9}, {
   3.504018269599441*^9, 3.504018279219314*^9}, {3.504018359153508*^9, 
   3.504018387475568*^9}, {3.5040184327040863`*^9, 3.504018509500141*^9}, {
   3.504018861653284*^9, 3.504018920277594*^9}, {3.504019049785894*^9, 
   3.504019065803638*^9}, 3.504019184180941*^9, {3.504059801963703*^9, 
   3.504059813764331*^9}, 3.5040599982883453`*^9, {3.504060100407703*^9, 
   3.504060104803857*^9}, 3.504060440796597*^9, {3.504060503267675*^9, 
   3.504060525182757*^9}, {3.50456047953319*^9, 3.504560681387557*^9}, {
   3.504577463729417*^9, 3.504577464011519*^9}, {3.504577589051256*^9, 
   3.504577590132493*^9}, {3.504577632742776*^9, 3.5045776330605373`*^9}, {
   3.504740502012248*^9, 3.504740503922497*^9}, {3.504740727150861*^9, 
   3.504740736352736*^9}, 3.504876469621917*^9, {3.5055962008030443`*^9, 
   3.505596275077857*^9}, {3.505596319880871*^9, 3.505596373226162*^9}, {
   3.505596415459552*^9, 3.505596505766666*^9}, {3.50559654044011*^9, 
   3.505596540734797*^9}, 3.505672802683957*^9, {3.505673770320092*^9, 
   3.505673773863884*^9}, 3.505675171786241*^9, {3.5056944622614517`*^9, 
   3.5056944644024887`*^9}, {3.505694519940433*^9, 3.5056945200345287`*^9}, {
   3.50576056070961*^9, 3.505760572156438*^9}, {3.505760765195361*^9, 
   3.5057607660730953`*^9}, {3.505766224935194*^9, 3.505766256913796*^9}, {
   3.5057670283279552`*^9, 3.505767034272224*^9}, 3.505767117987874*^9, {
   3.5060047423326187`*^9, 3.506004749419078*^9}, 3.506005161369388*^9, {
   3.5060053061819067`*^9, 3.506005326274728*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7965262500440443`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7696560208884932`", ",", "0.6449196851469206`", ",", 
         "0.6356156396644548`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5188389944899634`", ",", "0.3128627653112545`", ",", 
         "0.5518873641334103`", ",", "0.0617464868486983`", ",", 
         "0.549313354348664`", ",", "0.6984069936449716`", ",", 
         "0.20739572374398346`", ",", "0.35025270955836807`", ",", 
         "0.8085389722246935`", ",", "0.48452503165597344`", ",", 
         "0.09132912192269374`", ",", "0.10363322117325312`", ",", 
         "0.5623855862060603`", ",", "0.05183659653220832`", ",", 
         "0.8867646808515666`", ",", "0.9449248344137965`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9691742074825431`", ",", "0.18746471229446882`", ",", 
         "0.17657226145787444`", ",", "0.5289594768732574`"}], "}"}], ",", 
       "0.17264795743849876`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.41780869140597565`", ",", "0.5316525763109539`", ",", 
         "0.8933438372088026`", ",", "0.6538089629485354`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.1049459260947211`", ",", "0.9797652121775435`", ",", 
         "0.8315973503601044`", ",", "0.10449560859987139`", ",", 
         "0.4065389324497495`", ",", "0.7723694884335601`", ",", 
         "0.4813446408017363`", ",", "0.2959566363751779`", ",", 
         "0.922013900793776`", ",", "0.6810403665108663`", ",", 
         "0.3777114196284832`", ",", "0.7335710501691176`", ",", 
         "0.8701773042615677`", ",", "0.7942756856592998`", ",", 
         "0.4327865852146867`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7643968426865746`", ",", "0.6827125919670989`", ",", 
         "0.6177034242014254`", ",", "0.9038271083414293`", ",", 
         "0.5917488852480758`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "4"}], "}"}]}], "}"}], ",", 
       "0.26490390056112323`", ",", "0.08605084789047152`", ",", 
       "0.010483271132626627`", ",", "0.9379399222995404`", ",", 
       "0.15995797446640214`", ",", "0.10628563571292797`", ",", 
       "0.17888592077252227`", ",", "0.833444313699669`", ",", 
       "0.7534190420166527`", ",", "0.33391614727936786`", ",", 
       "0.697541279970786`", ",", "0.5374876773244911`", ",", 
       "0.8314051412228767`", ",", "0.6528757807685015`", ",", 
       "0.31982986034230276`"}], "}"}], ",", "19.201188581469083`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.8039166271553735`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.961227836961309`", ",", "0.8586000951092017`", ",", 
         "0.887043275127616`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.03951978446879891`", ",", "0.2785152449942101`", ",", 
         "0.24089667090777628`", ",", "0.9832161667861868`", ",", 
         "0.4477708992207231`", ",", "0.013611344433086888`", ",", 
         "0.15484582301730476`", ",", "0.9727328956535601`", ",", 
         "0.5098309769211827`", ",", "0.8536533699666847`", ",", 
         "0.04856018730437679`", ",", "0.793846974881038`", ",", 
         "0.6763866632215138`", ",", "0.10023432795003206`", ",", 
         "0.7146440400250089`", ",", "0.09630569491025194`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.13889898589702265`", ",", "0.2688291867271554`", ",", 
         "0.06176825925650741`", ",", "0.7764758345679491`"}], "}"}], ",", 
       "0.33498235874164917`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3076013497658464`", ",", "0.20316816414730574`", ",", 
         "0.8894325594403331`", ",", "0.2954625742728503`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.029086104771636277`", ",", "0.9622714932395294`", ",", 
         "0.9062163926541462`", ",", "0.8476916750521272`", ",", 
         "0.01547476033854939`", ",", "0.8074256702222247`", ",", 
         "0.9334834970005861`", ",", "0.33786069813094444`", ",", 
         "0.16182139037186463`", ",", "0.7588654829178479`", ",", 
         "0.13963652211954813`", ",", "0.6614740349094307`", ",", 
         "0.06158706242183258`", ",", "0.04422144289283897`", ",", 
         "0.0433308272092962`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.522575049012408`", ",", "0.7927578756946771`", ",", 
         "0.9824531836363316`", ",", "0.26685499264134704`", ",", 
         "0.18759269027075884`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.4851565259288308`", ",", "0.7792850194890258`", ",", 
       "0.377422433201014`", ",", "0.8921301159979086`", ",", 
       "0.4560704211571945`", ",", "0.8170135262494964`", ",", 
       "0.47120604054686777`", ",", "0.04443844094578138`", ",", 
       "0.4405956608186451`", ",", "0.009587856027271684`", ",", 
       "0.5377225435462817`", ",", "0.706577742814837`", ",", 
       "0.2787742704467805`", ",", "0.2507223731094238`", ",", 
       "0.39808602142673355`"}], "}"}], ",", "1.3506213075924942`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.0451037079054063`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2171872080249479`", ",", "0.2065009302165848`", ",", 
         "0.35475519421743734`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5225286588929983`", ",", "0.4244293323302707`", ",", 
         "0.22404774658025325`", ",", "0.08790020157609031`", ",", 
         "0.33493596862223945`", ",", "0.93927280640144`", ",", 
         "0.44476272709122744`", ",", "0.7104777683750763`", ",", 
         "0.4428058526243309`", ",", "0.4832023852442454`", ",", 
         "0.627749200841731`", ",", "0.23927172782820855`", ",", 
         "0.3983674116785495`", ",", "0.04260672442560029`", ",", 
         "0.6181613448144594`", ",", "0.7015491842819268`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6917896688637125`", ",", "0.7638324539788198`", ",", 
         "0.3674389717050356`", ",", "0.30346316285519326`"}], "}"}], ",", 
       "0.6466859609583062`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5466452459538719`", ",", "0.16093804148845078`", ",", 
         "0.9487079686377559`", ",", "0.12415730206530799`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.12221591362360121`", ",", "0.9368902949081975`", ",", 
         "0.8608077670616656`", ",", "0.7892213334430686`", ",", 
         "0.18294310722216128`", ",", "0.4921275678169701`", ",", 
         "0.15032999868658928`", ",", "0.34641548081873763`", ",", 
         "0.6997407219779159`", ",", "0.8643783669752391`", ",", 
         "0.9110582708583808`", ",", "0.9480480691401881`", ",", 
         "0.6571339975523156`", ",", "0.24621702216077965`", ",", 
         "0.2095090865764539`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.25625840027647556`", ",", "0.8933015435734958`", ",", 
         "0.8787780504557441`", ",", "0.9060459237212606`", ",", 
         "0.6095724393181693`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.34665629761962385`", ",", "0.7178400089672933`", ",", 
       "0.9573379550835047`", ",", "0.4854151372528613`", ",", 
       "0.22444038399602267`", ",", "0.7809497140590957`", ",", 
       "0.09653018802183912`", ",", "0.6961938038097928`", ",", 
       "0.04149727677386138`", ",", "0.2888221462421257`", ",", 
       "0.9462001893352499`", ",", "0.34977832299105516`", ",", 
       "0.3417565547959455`", ",", "0.4244437792668867`", ",", 
       "0.03514191847686909`"}], "}"}], ",", 
     RowBox[{"-", "654.5873834835892`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.401730253850867`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6846225572436299`", ",", "0.17822675710610703`", ",", 
         "0.8256328319004151`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.14547185357439146`", ",", "0.7913210136701341`", ",", 
         "0.299448706650363`", ",", "0.9195869081791546`", ",", 
         "0.5358994142562221`", ",", "0.4446647160505103`", ",", 
         "0.5816086976830697`", ",", "0.9622489530956498`", ",", 
         "0.05048427700336084`", ",", "0.22022433205448758`", ",", 
         "0.8006589836239739`", ",", "0.8657187650738107`", ",", 
         "0.35429047319356805`", ",", "0.1787270552806262`", ",", 
         "0.5118368373818483`", ",", "0.9195185757385609`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.004512150202512942`", ",", "0.8369705004846807`", ",", 
         "0.08739305811496158`", ",", "0.8843766572616918`"}], "}"}], ",", 
       "0.6027818963516459`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.1523479432410508`", ",", "0.9091663010088545`", ",", 
         "0.05874382536127661`", ",", "0.45731004277725446`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3610269295709167`", ",", "0.6097175943584916`", ",", 
         "0.13915691718212206`", ",", "0.9214106285210323`", ",", 
         "0.9163622135204065`", ",", "0.028108896675421845`", ",", 
         "0.17690796408647222`", ",", "0.8709263515176715`", ",", 
         "0.6961378814659188`", ",", "0.2274499130514479`", ",", 
         "0.3111891990126615`", ",", "0.5166358783241034`", ",", 
         "0.5174108261852927`", ",", "0.7156130756695996`", ",", 
         "0.3916706232741006`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5121237281215905`", ",", "0.680440325700612`", ",", 
         "0.6282200175546381`", ",", "0.5072939660124088`", ",", 
         "0.9093418317699445`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.5280923824595611`", ",", "0.7190537165457835`", ",", 
       "0.44855014065113225`", ",", "0.4520317889926901`", ",", 
       "0.1670654528886444`", ",", "0.109336122187292`", ",", 
       "0.30939322346901016`", ",", "0.5306211604716577`", ",", 
       "0.25070323936823796`", ",", "0.08122722551187014`", ",", 
       "0.1324852593825379`", ",", "0.6596948089539862`", ",", 
       "0.5545653579023191`", ",", "0.8537773124604222`", ",", 
       "0.8212960603698765`"}], "}"}], ",", 
     RowBox[{"-", "1.3019149664684135`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.1430589306298828`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.0371545317170265`", ",", "0.1381642367908226`", ",", 
         "0.4296254370957758`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6309352025082924`", ",", "0.35671420601641457`", ",", 
         "0.5099442192361845`", ",", "0.922331471083367`", ",", 
         "0.7215933707383478`", ",", "0.8286218235568534`", ",", 
         "0.790890502690401`", ",", "0.4737813304322347`", ",", 
         "0.26956158174565775`", ",", "0.661556370668209`", ",", 
         "0.681554380503109`", ",", "0.16438810696322456`", ",", 
         "0.7389404212740001`", ",", "0.4108531312999711`", ",", 
         "0.6003271549912388`", ",", "0.031902847580686636`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.07924561232001376`", ",", "0.8562877733976519`", ",", 
         "0.7465498425308166`", ",", "0.21060678721081022`"}], "}"}], ",", 
       "0.936186681690131`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8191332416806254`", ",", "0.608385605739994`", ",", 
         "0.7809813501150344`", ",", "0.3052514791818386`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4624190356642109`", ",", "0.09844138650380949`", ",", 
         "0.8586498790316676`", ",", "0.5836581084434908`", ",", 
         "0.6337972121073574`", ",", "0.3075508838134085`", ",", 
         "0.3848685485994328`", ",", "0.31409652669783306`", ",", 
         "0.9722408414391484`", ",", "0.6259965033102995`", ",", 
         "0.22048044163620822`", ",", "0.575156105423833`", ",", 
         "0.5613877101391772`", ",", "0.025669348319060734`", ",", 
         "0.1885775940555216`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4959104931038193`", ",", "0.7050999367415253`", ",", 
         "0.2791195057882442`", ",", "0.9779708068447114`", ",", 
         "0.5597238114136883`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "4"}], "}"}]}], "}"}], ",", 
       "0.8859666950608999`", ",", "0.6707339000482502`", ",", 
       "0.1969894567296769`", ",", "0.25447233223184973`", ",", 
       "0.42354765939668904`", ",", "0.5722925135444407`", ",", 
       "0.3383395776980094`", ",", "0.670814223788359`", ",", 
       "0.7897504472893316`", ",", "0.26474162973103216`", ",", 
       "0.9534710290985766`", ",", "0.3567176970905259`", ",", 
       "0.8175096058501833`", ",", "0.6387451264207326`", ",", 
       "0.7329905874623683`"}], "}"}], ",", 
     RowBox[{"-", "2.582060100725132`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7815615916666929`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.256121895711006`", ",", "0.6130757781016719`", ",", 
         "0.5444129934068468`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.28565109856287363`", ",", "0.5510219589694807`", ",", 
         "0.3339562723134277`", ",", "0.5664421865621354`", ",", 
         "0.7259272871491853`", ",", "0.6650552639085808`", ",", 
         "0.6632223722651776`", ",", "0.36945272983245847`", ",", 
         "0.4714549549173355`", ",", "0.24150760451189182`", ",", 
         "0.09092985872073686`", ",", "0.0311131521344491`", ",", 
         "0.8006407311289766`", ",", "0.4517571572225602`", ",", 
         "0.8261882289897047`", ",", "0.0776421230358725`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4439230340384506`", ",", "0.6342475513723769`", ",", 
         "0.1874431025689721`", ",", "0.34465153557350414`"}], "}"}], ",", 
       "0.6623614423717578`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3781256556613709`", ",", "0.5743673244673002`", ",", 
         "0.8002385421666574`", ",", "0.3767103438088842`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8271036966918902`", ",", "0.24041105215387248`", ",", 
         "0.23379635560452197`", ",", "0.6507830566596989`", ",", 
         "0.16204843278330935`", ",", "0.5771886798886949`", ",", 
         "0.8643436257720635`", ",", "0.17932810174236335`", ",", 
         "0.9205408282714176`", ",", "0.48625882116795804`", ",", 
         "0.8332304736376144`", ",", "0.3786873706133868`", ",", 
         "0.4687836710488574`", ",", "0.6600705921782534`", ",", 
         "0.7555883506017419`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9347643365749362`", ",", "0.8345361196764804`", ",", 
         "0.47262748960928125`", ",", "0.41093681502823776`", ",", 
         "0.27240289420317837`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "4"}], "}"}]}], "}"}], ",", 
       "0.45641046401510954`", ",", "0.898260165141981`", ",", 
       "0.6106982728615804`", ",", "0.8956925503942942`", ",", 
       "0.6293067673232193`", ",", "0.6578491129881086`", ",", 
       "0.3769019172570584`", ",", "0.2449094937345953`", ",", 
       "0.46725833453991`", ",", "0.08066043309941363`", ",", 
       "0.5125582914849949`", ",", "0.06558139199223195`", ",", 
       "0.5467175062684925`", ",", "0.5944016119314556`", ",", 
       "0.6793278178473805`"}], "}"}], ",", 
     RowBox[{"-", "1.4541152490580576`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.6868940213788451`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.07793383521963511`", ",", "0.9343310197532022`", ",", 
         "0.9237394672456386`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.752129684803909`", ",", "0.24339771554315467`", ",", 
         "0.4617035301439209`", ",", "0.512802652217401`", ",", 
         "0.47972679060073065`", ",", "0.7869872515280452`", ",", 
         "0.5634433650019398`", ",", "0.9021043793558206`", ",", 
         "0.5840342402064365`", ",", "0.15768048420482575`", ",", 
         "0.9055942520138313`", ",", "0.5252024620987622`", ",", 
         "0.3391247464718411`", ",", "0.6904221496649158`", ",", 
         "0.8249338189144176`", ",", "0.012644170613767259`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.27354335447960915`", ",", "0.14370464339642328`", ",", 
         "0.2305322069829621`", ",", "0.3333163527663867`"}], "}"}], ",", 
       "0.586649333100764`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.06577080817678815`", ",", "0.2962011872297599`", ",", 
         "0.40957688552074806`", ",", "0.834519648296855`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8223730926336335`", ",", "0.834497657085839`", ",", 
         "0.8967742333033472`", ",", "0.35479285769612434`", ",", 
         "0.035385841105588366`", ",", "0.27105429208389914`", ",", 
         "0.9946698539475266`", ",", "0.7707586174896879`", ",", 
         "0.8777053569007626`", ",", "0.3654600400700678`", ",", 
         "0.4694673918487644`", ",", "0.43163387101784684`", ",", 
         "0.18728320723584688`", ",", "0.5405262211556502`", ",", 
         "0.4568232212349972`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.15809051653823766`", ",", "0.04357856383942362`", ",", 
         "0.30999401417268807`", ",", "0.12350686846861045`", ",", 
         "0.5714411834374736`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.9778077556626354`", ",", "0.013792826942928178`", ",", 
       "0.7139299829478624`", ",", "0.7369215351406186`", ",", 
       "0.155434663029002`", ",", "0.1792951698570892`", ",", 
       "0.8171557496445152`", ",", "0.3821286774444943`", ",", 
       "0.12004882192341362`", ",", "0.9082408777731901`", ",", 
       "0.8224858956969886`", ",", "0.6113700599548064`", ",", 
       "0.242343465022651`", ",", "0.5427808377031222`", ",", 
       "0.3530185038482242`"}], "}"}], ",", 
     RowBox[{"-", "7.110876041108462`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.17973618893695956`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.05506025778680412`", ",", "0.0022546165474721033`", ",", 
         "0.896195282613227`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.021645672398721914`", ",", "0.011481693947380502`", ",", 
         "0.692260602374784`", ",", "0.7726884141446165`", ",", 
         "0.45020448896124826`", ",", "0.033673938284745034`", ",", 
         "0.6784677754318559`", ",", "0.0587584311967542`", ",", 
         "0.7132829538206296`", ",", "0.8782392752557431`", ",", 
         "0.49917260557476667`", ",", "0.241602681552239`", ",", 
         "0.3311542763761353`", ",", "0.7581904533323294`", ",", 
         "0.5909317278015765`", ",", "0.41911678585525036`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.719784216421329`", ",", "0.5158469883096785`", ",", 
         "0.04815089009845429`", ",", "0.06609828200702621`"}], "}"}], ",", 
       "0.5400480274843693`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4607867305228743`", ",", "0.045896273550982185`", ",", 
         "0.1699029993937992`", ",", "0.5184023550856475`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4493050365754938`", ",", "0.35363567117619815`", ",", 
         "0.39721458524918263`", ",", "0.06819786612439917`", ",", 
         "0.41563109829074874`", ",", "0.6751678957443423`", ",", 
         "0.3384561540524284`", ",", "0.3549149123037696`", ",", 
         "0.5373918230350058`", ",", "0.17599529016957566`", ",", 
         "0.09685347250018943`", ",", "0.02376063592763427`", ",", 
         "0.7792013697026763`", ",", "0.5850635623679991`", ",", 
         "0.677736686644939`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3039764195063054`", ",", "0.2633543813929979`", ",", 
         "0.5369126722695448`", ",", "0.6116384046379129`", ",", 
         "0.763928392021936`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", 
       "0.8025676508701236`", ",", "0.4910163987185626`", ",", 
       "0.44173540524411364`", ",", "0.24552603693628858`", ",", 
       "0.3532626142946298`", ",", "0.13738072754236447`", ",", 
       "0.04452081999493102`", ",", "0.17732817081188942`", ",", 
       "0.9376315160038811`", ",", "0.46221283179802214`", ",", 
       "0.7060646659425026`", ",", "0.8224132585081199`", ",", 
       "0.40023969296887535`", ",", "0.28621754162844654`", ",", 
       "0.6092111934423131`"}], "}"}], ",", 
     RowBox[{"-", "4.307292736259449`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7986526225804855`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.621038323266199`", ",", "0.7011539792604474`", ",", 
         "0.9314745067973741`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4946762030741802`", ",", "0.3576839418732012`", ",", 
         "0.1642413069909026`", ",", "0.3198361021594613`", ",", 
         "0.7307478110522442`", ",", "0.5551162910030776`", ",", 
         "0.67322490827234`", ",", "0.8781006969153476`", ",", 
         "0.48522177411595563`", ",", "0.20185367670844773`", ",", 
         "0.5358441807299755`", ",", "0.8335798769204166`", ",", 
         "0.30789360330406623`", ",", "0.26422216070456667`", ",", 
         "0.07363134893195337`", ",", "0.12751521097791402`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4854803447959464`", ",", "0.8639824677356913`", ",", 
         "0.7874138073035069`", ",", "0.5183040175356008`"}], "}"}], ",", 
       "0.6868277222154607`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.24294414446949228`", ",", "0.08625982804305946`", ",", 
         "0.5868295107382268`", ",", "0.19215151914128056`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8852602025962911`", ",", "0.9220185210521569`", ",", 
         "0.26699340857876547`", ",", "0.46140370808903636`", ",", 
         "0.33014391159321355`", ",", "0.24879361277981685`", ",", 
         "0.3888927116634178`", ",", "0.9761819339730807`", ",", 
         "0.1282902348847658`", ",", "0.7129494320498413`", ",", 
         "0.5553128347430012`", ",", "0.6682883306690145`", ",", 
         "0.8640680741801992`", ",", "0.639318083117888`", ",", 
         "0.42779762376508723`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.18280798587306818`", ",", "0.00008560644450780535`", ",", 
         "0.8519042758143811`", ",", "0.9094936062294864`", ",", 
         "0.4959802636576074`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.7571414619750155`", ",", "0.7656444477713216`", ",", 
       "0.3226640954912597`", ",", "0.3038287445163268`", ",", 
       "0.8718812593787244`", ",", "0.8436259267191648`", ",", 
       "0.0556706869124942`", ",", "0.8424250364272905`", ",", 
       "0.5417373477855109`", ",", "0.594832313939348`", ",", 
       "0.6667779752490763`", ",", "0.8662431024542098`", ",", 
       "0.4134471129007451`", ",", "0.8818828818895066`", ",", 
       "0.11146514050607513`"}], "}"}], ",", 
     RowBox[{"-", "132.27866448718225`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.1979547717851952`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5493790387205459`", ",", "0.2425647987716187`", ",", 
         "0.6836675167409879`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.015146785912127007`", ",", "0.5492934322760381`", ",", 
         "0.39066052295723763`", ",", "0.7741739105115015`", ",", 
         "0.5191665222545196`", ",", "0.7921519703010226`", ",", 
         "0.6250160751859161`", ",", "0.45150981502024184`", ",", 
         "0.2153377777381928`", ",", "0.9202707109222982`", ",", 
         "0.7813901484667513`", ",", "0.3958391281077477`", ",", 
         "0.37291274131090235`", ",", "0.3785333631367873`", ",", 
         "0.18655783452740335`", ",", "0.7290611528586713`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5066696388566926`", ",", "0.9650862502360422`", ",", 
         "0.3046749526378967`", ",", "0.6175960123525962`"}], "}"}], ",", 
       "0.3087148670714974`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4157072115154962`", ",", "0.06211015386627798`", ",", 
         "0.9339284956116083`", ",", "0.29356808115937044`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8664137792394581`", ",", "0.6714496309090403`", ",", 
         "0.15975458510010673`", ",", "0.7744015589048509`", ",", 
         "0.07426180893843545`", ",", "0.04643355572312428`", ",", 
         "0.7082447700798649`", ",", "0.559063781166658`", ",", 
         "0.15399109801613728`", ",", "0.265043407256373`", ",", 
         "0.31240564197211723`", ",", "0.18615103985575568`", ",", 
         "0.77545773487935`", ",", "0.07848557272896967`", ",", 
         "0.5833444891134459`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6794814009990631`", ",", "0.8103714846433078`", ",", 
         "0.7738106200910729`", ",", "0.9657484767608497`", ",", 
         "0.37076653392756564`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", 
       "0.39466427312781155`", ",", "0.711700466224795`", ",", 
       "0.031819981149241505`", ",", "0.07719845276819522`", ",", 
       "0.5282504938883534`", ",", "0.04025083531575466`", ",", 
       "0.8720653960491348`", ",", "0.3027968938633444`", ",", 
       "0.453988684949918`", ",", "0.9938172795926303`", ",", 
       "0.16382062596926988`", ",", "0.7437331126966864`", ",", 
       "0.29999758693378076`", ",", "0.7287738723362573`", ",", 
       "0.8514149839971527`"}], "}"}], ",", "0.6325722652170103`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.505673776362035*^9, 3.50567517241039*^9, 3.505694464797428*^9, 
   3.505694520370846*^9, {3.505760569191741*^9, 3.5057605727116957`*^9}, 
   3.5057607666477423`*^9, {3.5057662355899057`*^9, 3.50576625748481*^9}, 
   3.505766305360738*^9, 3.505767035316896*^9, 3.5057671183873997`*^9, 
   3.506004750562114*^9, 3.506005161876086*^9, {3.50600531091241*^9, 
   3.506005327006206*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["DQfuncDLogLambda test vectors", "Subsubsection",
 CellChangeTimes->{{3.505673737120636*^9, 3.505673743138568*^9}, {
  3.506005367214827*^9, 3.506005367424184*^9}, {3.5060060911170177`*^9, 
  3.506006093123289*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "makevararray", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"makevararray", "[", 
    RowBox[{"s_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ToExpression", "[", 
      RowBox[{"s", " ", "<>", " ", 
       RowBox[{"ToString", "[", "i", "]"}]}], "]"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"i", ",", " ", "1", ",", " ", "n"}], " ", "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "dqfuncdloglambda", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dqfuncdloglambda", "[", 
    RowBox[{
    "\[Kappa]_", ",", " ", "log\[Alpha]_", ",", " ", "\[Tau]_", ",", " ", 
     "\[Gamma]_", ",", " ", "\[Rho]_", ",", " ", "log\[Lambda]_", ",", " ", 
     "pz_", ",", " ", "priorz_", ",", " ", "d_", ",", " ", "plog\[Alpha]_", 
     ",", " ", "p\[Tau]_", ",", " ", "p\[Gamma]_", ",", " ", "p\[Kappa]_", 
     ",", " ", "p\[Rho]_", ",", " ", "plog\[Lambda]_"}], "]"}], " ", ":=", 
   " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "tmp", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"tmp", " ", "=", " ", 
       RowBox[{"makevararray", "[", 
        RowBox[{"\"\<log\[Lambda]\>\"", ",", " ", 
         RowBox[{"Length", "[", "log\[Lambda]", "]"}]}], "]"}]}], ";", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"qfunc", "[", 
          RowBox[{
          "\[Kappa]", ",", "log\[Alpha]", ",", " ", "\[Tau]", ",", " ", 
           "\[Gamma]", ",", " ", "\[Rho]", ",", " ", "tmp", ",", " ", "pz", 
           ",", " ", "priorz", ",", " ", "d", ",", " ", "plog\[Alpha]", ",", 
           " ", "p\[Tau]", ",", " ", "p\[Gamma]", ",", " ", "p\[Kappa]", ",", 
           " ", "p\[Rho]", ",", " ", "plog\[Lambda]"}], " ", "]"}], ",", " ", 
         
         RowBox[{"{", "tmp", "}"}]}], "]"}], " ", "/.", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"ToExpression", "[", 
           RowBox[{
            RowBox[{"ToString", "[", 
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "<>", " ", 
            "\"\< -> \>\"", " ", "<>", " ", 
            RowBox[{"ToString", "[", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], "&"}], " ", "/@", 
         RowBox[{"Transpose", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"makevararray", "[", 
             RowBox[{"\"\<log\[Lambda]\>\"", ",", " ", 
              RowBox[{"Length", "[", "log\[Lambda]", "]"}]}], "]"}], ",", " ",
             "log\[Lambda]"}], "}"}], "]"}]}], ")"}]}]}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.5056944305518713`*^9, 3.505694444058676*^9}, {
  3.5057604526719418`*^9, 3.505760553899432*^9}, {3.505766175548167*^9, 
  3.505766201826927*^9}, {3.506005574713005*^9, 3.506005628706656*^9}, {
  3.5060060972055473`*^9, 3.5060061336488857`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nworkers", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nworkers", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nimages", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nimages", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nratings", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nratings", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"!", " ", 
             RowBox[{"ListQ", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
            RowBox[{"!", " ", 
             RowBox[{"IntegerQ", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
         RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
      " ", "/@", " ", "#"}], ",", " ", 
     RowBox[{"dqfuncdloglambda", "[", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", "7", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "8", "]"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "+", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{"1", "+", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "&"}], " ", "/@", " ", 
        RowBox[{"#", "[", 
         RowBox[{"[", "9", "]"}], "]"}]}], ",", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "10", "]"}], "]"}]}], "]"}]}], "]"}], ",", " ", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "11", "]"}], "]"}]}], "]"}]}], "]"}], ",", 
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "12", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "13", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "14", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "15", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "16", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "17", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "18", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "19", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "20", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "21", "]"}], "]"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "22", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "23", "]"}], "]"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "24", "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], 
    "}"}], "&"}], "/@", "\[IndentingNewLine]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nimages"}], " ", "}"}]}], 
       "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "}"}]}], "]"}], ",", 
        " ", 
        RowBox[{"{", " ", 
         RowBox[{"k", ",", " ", "1", ",", " ", "nworkers"}], "}"}]}], "]"}], 
      ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", 
          RowBox[{"nlabels", " ", "-", " ", "1"}]}], "}"}]}], "]"}], ",", " ",
       "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nworkers"}], " ", "}"}]}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "nimages"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nworkers", " ", "-", " ", "1"}]}], "]"}], ",", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nimages", " ", "-", " ", "1"}]}], "]"}], ",", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], "}"}], ",", 
        " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nratings"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Random", "[", "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", " ", 
     RowBox[{"foo", ",", " ", "1", ",", " ", "10"}], " ", "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.504016424813343*^9, 3.504016580297758*^9}, {
   3.504018269599441*^9, 3.504018279219314*^9}, {3.504018359153508*^9, 
   3.504018387475568*^9}, {3.5040184327040863`*^9, 3.504018509500141*^9}, {
   3.504018861653284*^9, 3.504018920277594*^9}, {3.504019049785894*^9, 
   3.504019065803638*^9}, 3.504019184180941*^9, {3.504059801963703*^9, 
   3.504059813764331*^9}, 3.5040599982883453`*^9, {3.504060100407703*^9, 
   3.504060104803857*^9}, 3.504060440796597*^9, {3.504060503267675*^9, 
   3.504060525182757*^9}, {3.50456047953319*^9, 3.504560681387557*^9}, {
   3.504577463729417*^9, 3.504577464011519*^9}, {3.504577589051256*^9, 
   3.504577590132493*^9}, {3.504577632742776*^9, 3.5045776330605373`*^9}, {
   3.504740502012248*^9, 3.504740503922497*^9}, {3.504740727150861*^9, 
   3.504740736352736*^9}, 3.504876469621917*^9, {3.5055962008030443`*^9, 
   3.505596275077857*^9}, {3.505596319880871*^9, 3.505596373226162*^9}, {
   3.505596415459552*^9, 3.505596505766666*^9}, {3.50559654044011*^9, 
   3.505596540734797*^9}, 3.505672802683957*^9, {3.505673770320092*^9, 
   3.505673773863884*^9}, 3.505675171786241*^9, {3.5056944622614517`*^9, 
   3.5056944644024887`*^9}, {3.505694519940433*^9, 3.5056945200345287`*^9}, {
   3.50576056070961*^9, 3.505760572156438*^9}, {3.505760765195361*^9, 
   3.5057607660730953`*^9}, {3.505766224935194*^9, 3.505766256913796*^9}, {
   3.506005657007914*^9, 3.506005662676763*^9}, 3.5060057536206207`*^9, {
   3.50600613660791*^9, 3.506006142552537*^9}, 3.5060061973384333`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.34586818516673523`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.22066690568771002`", ",", "0.6190208599447649`", ",", 
         "0.008226252377471524`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3868842396269463`", ",", "0.15126953740528196`", ",", 
         "0.06689703928918889`", ",", "0.7500551177633005`", ",", 
         "0.16695346955416362`", ",", "0.40166563532000643`", ",", 
         "0.769863105100738`", ",", "0.38306394589628523`", ",", 
         "0.9153491610373055`", ",", "0.7614847152873068`", ",", 
         "0.9379716473752086`", ",", "0.5159918238725131`", ",", 
         "0.11025379596068247`", ",", "0.8239922520926707`", ",", 
         "0.7073463635383649`", ",", "0.791732756995639`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.19076701785880187`", ",", "0.021492269783609293`", ",", 
         "0.09267144557198101`", ",", "0.555261736801166`"}], "}"}], ",", 
       "0.8448988326920667`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8008253640958992`", ",", "0.4736505856272161`", ",", 
         "0.5470354844236945`", ",", "0.4580145930651203`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6495558266906173`", ",", "0.40675354633802724`", ",", 
         "0.7969803666603941`", ",", "0.2910611235109567`", ",", 
         "0.24789019137061089`", ",", "0.6368904412372892`", ",", 
         "0.4139164207641088`", ",", "0.3757119624736513`", ",", 
         "0.4864054760833041`", ",", "0.6989187938620807`", ",", 
         "0.8979245968915958`", ",", "0.26545816651296883`", ",", 
         "0.6624132239906333`", ",", "0.9915724303237158`", ",", 
         "0.10619183989595674`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.07469114865416697`", ",", "0.640920954207024`", ",", 
         "0.8989009847517347`", ",", "0.5509301030947907`", ",", 
         "0.2297923159621003`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "3"}], "}"}]}], "}"}], ",", 
       "0.8400955901111248`", ",", "0.4252503991245187`", ",", 
       "0.003894618671096223`", ",", "0.77177772289698`", ",", 
       "0.19053976342050746`", ",", "0.018496852786491463`", ",", 
       "0.2069142520107022`", ",", "0.4807165993860233`", ",", 
       "0.9426495720498965`", ",", "0.3816064115492023`", ",", 
       "0.7929978312465934`", ",", "0.10500463691237197`", ",", 
       "0.4562440959665925`", ",", "0.6826876176871216`", ",", 
       "0.8950732343549976`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "95.5836348577263`"}], ",", 
       RowBox[{"-", "32.971879427459754`"}], ",", 
       RowBox[{"-", "9.821396655352864`"}], ",", 
       RowBox[{"-", "43.295762601281496`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.8395464703994031`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7938308719759591`", ",", "0.6911151873634058`", ",", 
         "0.7888813944590409`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7648553217452362`", ",", "0.15290991776893514`", ",", 
         "0.792214202611671`", ",", "0.23795129136425022`", ",", 
         "0.5350630057831358`", ",", "0.31281432765781036`", ",", 
         "0.3669638034871523`", ",", "0.234056672693154`", ",", 
         "0.7632852828861558`", ",", "0.1222745642373029`", ",", 
         "0.34846695070066086`", ",", "0.027142420682451804`", ",", 
         "0.2825686835001326`", ",", "0.17962499218740632`", ",", 
         "0.9668605391514586`", ",", "0.2341445894358584`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.17756404658776065`", ",", "0.7233808962208138`", ",", 
         "0.28417292146433704`", ",", "0.3390713550808607`"}], "}"}], ",", 
       "0.3380175761883575`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9295500242448547`", ",", "0.5930577341009312`", ",", 
         "0.5501899606218198`", ",", "0.5731622544431213`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7766401064759195`", ",", "0.8008435314892602`", ",", 
         "0.31223866925756955`", ",", "0.03809924865998549`", ",", 
         "0.46382577881810916`", ",", "0.43387972800210794`", ",", 
         "0.07818199656441556`", ",", "0.2748139657738296`", ",", 
         "0.3415512145808063`", ",", "0.0854127773014471`", ",", 
         "0.05103957588196375`", ",", "0.992245282273697`", ",", 
         "0.16192622239339993`", ",", "0.11855223814998851`", ",", 
         "0.8168949864461054`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8146812356859364`", ",", "0.43854532617258607`", ",", 
         "0.8343793166856515`", ",", "0.47782363136524464`", ",", 
         "0.4766636594975789`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", 
       "0.5089953019277315`", ",", "0.24132158258472022`", ",", 
       "0.9276336707434248`", ",", "0.9035014050544575`", ",", 
       "0.7323551954518119`", ",", "0.44047805109545995`", ",", 
       "0.6153950014858552`", ",", "0.865402156394472`", ",", 
       "0.2685294166337028`", ",", "0.006598323093352018`", ",", 
       "0.5372130049214398`", ",", "0.5905881906206424`", ",", 
       "0.9269782020528965`", ",", "0.9211855457919049`", ",", 
       "0.48617342903947597`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "26.67948337550751`"}], ",", 
       RowBox[{"-", "111.8851688130751`"}], ",", 
       RowBox[{"-", "0.8976488908463376`"}], ",", 
       RowBox[{"-", "107.57603165601401`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.5983429083469454`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7650519796594966`", ",", "0.8026333076419164`", ",", 
         "0.6692784425933707`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7836616726610091`", ",", "0.3265066534869105`", ",", 
         "0.968253990956265`", ",", "0.191454811228126`", ",", 
         "0.3069980131634301`", ",", "0.8175113515591791`", ",", 
         "0.7269324083715447`", ",", "0.2638211404847012`", ",", 
         "0.40349660810897253`", ",", "0.08515615610736713`", ",", 
         "0.28645435727608476`", ",", "0.6484261389988459`", ",", 
         "0.5380944517145005`", ",", "0.8166267394736644`", ",", 
         "0.2798560341827327`", ",", "0.11121313407740616`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.947506261093858`", ",", "0.8896485374207679`", ",", 
         "0.3586704883908278`", ",", "0.6250397050379302`"}], "}"}], ",", 
       "0.3491633527469126`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.1245965577612713`", ",", "0.5560371807489114`", ",", 
         "0.9557612624445596`", ",", "0.5655016800859036`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7980899042743609`", ",", "0.5877831897926464`", ",", 
         "0.7643064512164336`", ",", "0.2585036669224735`", ",", 
         "0.9805785527151818`", ",", "0.8608507814211017`", ",", 
         "0.5004853107317324`", ",", "0.8550070588135009`", ",", 
         "0.8954223966078146`", ",", "0.574396424145017`", ",", 
         "0.8520591717328865`", ",", "0.3169126070990005`", ",", 
         "0.07879565713415031`", ",", "0.2945403899622843`", ",", 
         "0.7408460376554804`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.36940634600514244`", ",", "0.1891471197133824`", ",", 
         "0.9358699015714566`", ",", "0.11580633261755018`", ",", 
         "0.02024299325822977`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
       "0.0645505619521111`", ",", "0.3798327208225451`", ",", 
       "0.1600450701729906`", ",", "0.45474131317232613`", ",", 
       "0.2664606576777503`", ",", "0.7920495310298986`", ",", 
       "0.39573861895655704`", ",", "0.1962376462498526`", ",", 
       "0.2858821049625685`", ",", "0.9311987496087969`", ",", 
       "0.8952533082248246`", ",", "0.34123058743635165`", ",", 
       "0.3904597083547538`", ",", "0.3568023254637799`", ",", 
       "0.04319413649193813`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"120.36357898877243`", ",", 
       RowBox[{"-", "253.3025142084315`"}], ",", 
       RowBox[{"-", "526.5370892205809`"}], ",", 
       RowBox[{"-", "230.96864133571702`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.024317980337351157`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3116640512206035`", ",", "0.062261935501495565`", ",", 
         "0.30234809883645775`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6549116343322088`", ",", "0.12251693150722107`", ",", 
         "0.12639203393003906`", ",", "0.1865417662189076`", ",", 
         "0.6346686410739789`", ",", "0.05796636955510996`", ",", 
         "0.7465593131074939`", ",", "0.02649669604591699`", ",", 
         "0.17992732790165283`", ",", "0.7915057118773597`", ",", 
         "0.9545097820775953`", ",", "0.6307580770893599`", ",", 
         "0.9836896816518003`", ",", "0.5056236069147912`", ",", 
         "0.02331103246879837`", ",", "0.7355047688645353`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6424590942154486`", ",", "0.11516389856003742`", ",", 
         "0.6665087070050185`", ",", "0.6923106323725972`"}], "}"}], ",", 
       "0.6181411138780974`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8034998473394339`", ",", "0.6042467715035229`", ",", 
         "0.3899625335361394`", ",", "0.9632294795458887`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6809829158322128`", ",", "0.47785473757348385`", ",", 
         "0.2034207673172318`", ",", "0.32856083847190976`", ",", 
         "0.6230165462771029`", ",", "0.7312954244659899`", ",", 
         "0.17692407127131482`", ",", "0.14863351057025692`", ",", 
         "0.8315108343997432`", ",", "0.7767856423883946`", ",", 
         "0.5461659941819549`", ",", "0.1649438289184567`", ",", 
         "0.32588722748495197`", ",", "0.7534746099195962`", ",", 
         "0.8106612253174196`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.522484734703008`", ",", "0.21072332892491458`", ",", 
         "0.0869659029145778`", ",", "0.11835059294482239`", ",", 
         "0.9043436208249107`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "4"}], "}"}]}], "}"}], ",", 
       "0.40722348158548066`", ",", "0.4827191314110549`", ",", 
       "0.728388059408683`", ",", "0.9411141412790219`", ",", 
       "0.7262405657532678`", ",", "0.004864393837571009`", ",", 
       "0.5249672920914512`", ",", "0.6125533028071122`", ",", 
       "0.1032240194761649`", ",", "0.2735689693715811`", ",", 
       "0.3480432208201364`", ",", "0.4639197922368553`", ",", 
       "0.27171318507642167`", ",", "0.4967833269831864`", ",", 
       "0.8018772266381815`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "14.027738375253993`"}], ",", 
       RowBox[{"-", "88.93241268060176`"}], ",", 
       RowBox[{"-", "10.888876644482497`"}], ",", 
       RowBox[{"-", "83.68692440195531`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.29897596331839865`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.9458259575914697`", ",", "0.7433087170635901`", ",", 
         "0.9912160013207619`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7764912286153905`", ",", "0.7351026286665552`", ",", 
         "0.6563428141490123`", ",", "0.8728654083759395`", ",", 
         "0.8721476077904798`", ",", "0.3278791470810745`", ",", 
         "0.17362368273795745`", ",", "0.14447734896725656`", ",", 
         "0.9310334665114579`", ",", "0.6016385813278067`", ",", 
         "0.16875928890038644`", ",", "0.6195100568758054`", ",", 
         "0.3184801637043457`", ",", "0.4984145618516418`", ",", 
         "0.8951903195288053`", ",", "0.27146683605566896`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8545603714674904`", ",", "0.22670137677522012`", ",", 
         "0.39840699254561895`", ",", "0.46958960941748745`"}], "}"}], ",", 
       "0.5555844081490917`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2808754191837504`", ",", "0.6550982754820288`", ",", 
         "0.4783736080967255`", ",", "0.7790931795337013`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5457727905171953`", ",", "0.9987554613330165`", ",", 
         "0.605508199720786`", ",", "0.9069455717432213`", ",", 
         "0.21789364343612078`", ",", "0.825131778595059`", ",", 
         "0.46103085075352945`", ",", "0.9759121052317634`", ",", 
         "0.616255062108314`", ",", "0.6563724896946727`", ",", 
         "0.841520793877724`", ",", "0.6574319415274177`", ",", 
         "0.11784050025667225`", ",", "0.7611821701658673`", ",", 
         "0.5700539578220551`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8028715700599274`", ",", "0.8911391234814522`", ",", 
         "0.36277517762024836`", ",", "0.10046434840456762`", ",", 
         "0.24728716191083558`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "3"}], "}"}]}], "}"}], ",", 
       "0.6102637042977017`", ",", "0.7076769021382195`", ",", 
       "0.6220907403078421`", ",", "0.46819398237713433`", ",", 
       "0.06449091378050649`", ",", "0.708921440805203`", ",", 
       "0.01658254058705611`", ",", "0.561248410633913`", ",", 
       "0.8465972703443857`", ",", "0.8837896622101439`", ",", 
       "0.5555516898335267`", ",", "0.5853363054021495`", ",", 
       "0.23034220823607165`", ",", "0.2274171725154713`", ",", 
       "0.7140308959558026`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "71.56924360961393`"}], ",", 
       RowBox[{"-", "123.72418149588022`"}], ",", 
       RowBox[{"-", "5.9933825848076365`"}], ",", 
       RowBox[{"-", "34.72635241747054`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.9279043638747319`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.1125017079793994`", ",", "0.466235002349604`", ",", 
         "0.14397693813374748`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.1250327938148045`", ",", "0.22136258449794724`", ",", 
         "0.10345982472935568`", ",", "0.04351258972917985`", ",", 
         "0.8777456319039689`", ",", "0.6110988802002455`", ",", 
         "0.3957829225911362`", ",", "0.42142184942133776`", ",", 
         "0.4095516495268346`", ",", "0.546607966419739`", ",", 
         "0.6868614817859332`", ",", "0.40483930883428165`", ",", 
         "0.8483032388929216`", ",", "0.7000106960753533`", ",", 
         "0.8030718195757892`", ",", "0.849287619000755`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.262966933490772`", ",", "0.4696684878392816`", ",", 
         "0.575654647060318`", ",", "0.1352567230449524`"}], "}"}], ",", 
       "0.33506256961604014`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.35716677985988227`", ",", "0.10941964471071394`", ",", 
         "0.9912797849112049`", ",", "0.21002977580123564`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.135804195361935`", ",", "0.005959819981358264`", ",", 
         "0.947767195182025`", ",", "0.33228414389726674`", ",", 
         "0.5247053151616895`", ",", "0.6101768973902221`", ",", 
         "0.5263453457606873`", ",", "0.9227324943704321`", ",", 
         "0.9780973487419505`", ",", "0.9233154156042889`", ",", 
         "0.12150603692640564`", ",", "0.07442925547751057`", ",", 
         "0.2780866526665972`", ",", "0.12024359602849967`", ",", 
         "0.27221841792565066`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8114623219867386`", ",", "0.8084181648273155`", ",", 
         "0.5445889489681817`", ",", "0.1369616948806983`", ",", 
         "0.4763997523706984`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.45125138496743333`", ",", "0.43516930425746775`", ",", 
       "0.14568190996949337`", ",", "0.2663699765694628`", ",", 
       "0.31544718960549833`", ",", "0.4292094842761095`", ",", 
       "0.19791471478746833`", ",", "0.9340858326721961`", ",", 
       "0.7907418744438088`", ",", "0.8190325868858874`", ",", 
       "0.671569369026781`", ",", "0.011353338301763945`", ",", 
       "0.8126445257018583`", ",", "0.8957171712815984`", ",", 
       "0.5500633321003754`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "13.080136216032571`"}], ",", 
       RowBox[{"-", "35.42298623048166`"}], ",", 
       RowBox[{"-", "43.52457778604663`"}], ",", 
       RowBox[{"-", "37.90248627319581`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.9369240828242533`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5345578730352611`", ",", "0.7754735752530988`", ",", 
         "0.27784491417472473`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.12546176083751479`", ",", "0.7261397082079456`", ",", 
         "0.23088462628491713`", ",", "0.14088321929402642`", ",", 
         "0.6490620084668164`", ",", "0.27488832324051227`", ",", 
         "0.7957153220274493`", ",", "0.9952013093245331`", ",", 
         "0.38269203189735357`", ",", "0.9594411336350139`", ",", 
         "0.3665058377513398`", ",", "0.7972865945370647`", ",", 
         "0.4486061992251575`", ",", "0.16869925919120515`", ",", 
         "0.5474732508654524`", ",", "0.12571722551028366`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.43725286092339355`", ",", "0.3560547334893468`", ",", 
         "0.651756079583854`", ",", "0.5756538934099082`"}], "}"}], ",", 
       "0.5003287780991401`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8214968604540857`", ",", "0.8762825043307552`", ",", 
         "0.29780897923518357`", ",", "0.37486701726162536`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.09535715224614005`", ",", "0.645397878045838`", ",", 
         "0.15692575994115715`", ",", "0.725805008794809`", ",", 
         "0.8204688290056278`", ",", "0.8496825560183886`", ",", 
         "0.1617244506166241`", ",", "0.34311297689745546`", ",", 
         "0.8610276953706137`", ",", "0.4831767182670488`", ",", 
         "0.36443785607955936`", ",", "0.894506777672298`", ",", 
         "0.6923284361794086`", ",", "0.9357034674015964`", ",", 
         "0.2387206305692757`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.4572539167489045`", ",", "0.3362737026900618`", ",", 
         "0.2839473878177424`", ",", "0.6630667371593674`", ",", 
         "0.9569251386497643`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
       "0.5147768422359762`", ",", "0.40766488348698726`", ",", 
       "0.36525775792418386`", ",", "0.582058121388139`", ",", 
       "0.4194196899898361`", ",", "0.7622670054411493`", ",", 
       "0.2083319979830267`", ",", "0.8562531125933299`", ",", 
       "0.5989508609842084`", ",", "0.9125844494227606`", ",", 
       "0.0466075473664026`", ",", "0.5131401356958745`", ",", 
       "0.7379231656135946`", ",", "0.42940773115571185`", ",", 
       "0.6821696912868432`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "5.575095006949141`"}], ",", 
       RowBox[{"-", "219.8089771539886`"}], ",", 
       RowBox[{"-", "9.979442522525504`"}], ",", 
       RowBox[{"-", "117.45533411757003`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.6186333580235764`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.045594729434185945`", ",", "0.4937042637541155`", ",", 
         "0.4434490607175675`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.16137944127467202`", ",", "0.7093210267441241`", ",", 
         "0.20975687593637313`", ",", "0.7803823235582001`", ",", 
         "0.2044543026249077`", ",", "0.19454418450814798`", ",", 
         "0.8020919924493858`", ",", "0.4151245656340163`", ",", 
         "0.6223961812367688`", ",", "0.7751244945183119`", ",", 
         "0.03982498700823654`", ",", "0.20679256765098958`", ",", 
         "0.7661430686434388`", ",", "0.1761736335341035`", ",", 
         "0.12724053758547588`", ",", "0.16018502028458698`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2530029329475644`", ",", "0.4382504679205089`", ",", 
         "0.697832806429764`", ",", "0.47801532899774374`"}], "}"}], ",", 
       "0.6343695749239879`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.39265573848632296`", ",", "0.20412854267564848`", ",", 
         "0.03456626828017621`", ",", "0.47299013364931586`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6833347117421988`", ",", "0.9943716667392754`", ",", 
         "0.2541839447219761`", ",", "0.26853583102440814`", ",", 
         "0.48879052723405086`", ",", "0.19227967428988954`", ",", 
         "0.8390593790879598`", ",", "0.6461396497876394`", ",", 
         "0.713666032715739`", ",", "0.15245468728165298`", ",", 
         "0.6322668114369703`", ",", "0.8799965811442005`", ",", 
         "0.5374923991816355`", ",", "0.02521414969617711`", ",", 
         "0.47208179115238325`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6269936481966362`", ",", "0.09924193126112658`", ",", 
         "0.3273813432664131`", ",", "0.9940664621546396`", ",", 
         "0.9926240732726482`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "0"}], "}"}]}], "}"}], ",", 
       "0.7065861927748036`", ",", "0.1232528005907646`", ",", 
       "0.9595001938744633`", ",", "0.5196339396233324`", ",", 
       "0.023251481032604743`", ",", "0.12888113385148925`", ",", 
       "0.7053162491524873`", ",", "0.2510981085989242`", ",", 
       "0.5344609537985539`", ",", "0.9366014595615997`", ",", 
       "0.8662568700645273`", ",", "0.6049584588112848`", ",", 
       "0.8207949210828148`", ",", "0.7841467722799467`", ",", 
       "0.23399005862755715`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "55.3486902652853`"}], ",", "7.85808193372685`", ",", 
       RowBox[{"-", "8.295013448183335`"}], ",", 
       RowBox[{"-", "54.7817959794768`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.7249618776670843`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2833025219011793`", ",", "0.7589326225837696`", ",", 
         "0.7619082674751739`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.09796822947044818`", ",", "0.18406059064005273`", ",", 
         "0.4315512793173565`", ",", "0.7678418053205344`", ",", 
         "0.10534415619779997`", ",", "0.47747439786524914`", ",", 
         "0.3082984787265919`", ",", "0.8083416114460711`", ",", 
         "0.5857102165744676`", ",", "0.4542229168326444`", ",", 
         "0.17941734487510266`", ",", "0.10302536229358382`", ",", 
         "0.3346121079755434`", ",", "0.9197619630340905`", ",", 
         "0.24281588531350295`", ",", "0.23676849222905644`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7296536491642586`", ",", "0.0989670419512757`", ",", 
         "0.45866911303355623`", ",", "0.002778433601499288`"}], "}"}], ",", 
       "0.004691771497174271`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8156645200500964`", ",", "0.6997364904497867`", ",", 
         "0.24087016612632542`", ",", "0.9067235420267261`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6316039294100436`", ",", "0.26818521113243016`", ",", 
         "0.4730283608057911`", ",", "0.8013793858289261`", ",", 
         "0.1541295315447945`", ",", "0.9598867324058382`", ",", 
         "0.66468674935972`", ",", "0.2156691692544585`", ",", 
         "0.6999066147121501`", ",", "0.7804693875307356`", ",", 
         "0.5616613870661362`", ",", "0.8810570612789151`", ",", 
         "0.7801446516780596`", ",", "0.5376535022172326`", ",", 
         "0.3248928948370798`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.15140341211465652`", ",", "0.6811776097267839`", ",", 
         "0.07898438918367638`", ",", "0.32211446123558046`", ",", 
         "0.14671164061748226`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.8655130896766875`", ",", "0.37924789873388975`", ",", 
       "0.08124429510925507`", ",", "0.23998809859075618`", ",", 
       "0.23390916026664385`", ",", "0.11106268760145958`", ",", 
       "0.608215934303464`", ",", "0.43860871276183006`", ",", 
       "0.07977962872184935`", ",", "0.15117595519562135`", ",", 
       "0.9435291849437439`", ",", "0.22293954350737152`", ",", 
       "0.37987301400969925`", ",", "0.37070656766488574`", ",", 
       "0.3818677978776078`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "60.890172299200714`"}], ",", 
       RowBox[{"-", "49.633875889142885`"}], ",", 
       RowBox[{"-", "69.35433103331823`"}], ",", 
       RowBox[{"-", "148.2764599975538`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.3418824822284564`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5997283623316396`", ",", "0.8330530654476531`", ",", 
         "0.056974903040528005`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.1904790701137999`", ",", "0.9185507526048557`", ",", 
         "0.7540686762639768`", ",", "0.7348604418049475`", ",", 
         "0.04376742949631764`", ",", "0.053037662928168285`", ",", 
         "0.374820777530087`", ",", "0.6536161466956925`", ",", 
         "0.8037793309055615`", ",", "0.8191285026615244`", ",", 
         "0.2637580899286274`", ",", "0.04540021239222845`", ",", 
         "0.3651706181437314`", ",", "0.7393488739396751`", ",", 
         "0.1125821347330061`", ",", "0.10187102744848449`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.14223107463635992`", ",", "0.3594758599299758`", ",", 
         "0.7418755670681203`", ",", "0.7200032295708767`"}], "}"}], ",", 
       "0.8003485924079035`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7597474975983362`", ",", "0.9088225016204672`", ",", 
         "0.6630283265303487`", ",", "0.6098695222941036`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8411967449934804`", ",", "0.1547538253564904`", ",", 
         "0.9281678847254012`", ",", "0.566102092797786`", ",", 
         "0.788159082065312`", ",", "0.7799330478264034`", ",", 
         "0.2745517380297087`", ",", "0.7623227618922245`", ",", 
         "0.9690305794037877`", ",", "0.5161749578977759`", ",", 
         "0.22915152563748029`", ",", "0.39715214374849306`", ",", 
         "0.2296817054641126`", ",", "0.4035928231647698`", ",", 
         "0.12728049818899578`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.25492106911213314`", ",", "0.8702058455341368`", ",", 
         "0.6617172560966494`", ",", "0.4072772686181191`", ",", 
         "0.4545724767042296`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.11045834793580062`", ",", "0.7528947544761823`", ",", 
       "0.7442489420877704`", ",", "0.844702954410126`", ",", 
       "0.26926160294232027`", ",", "0.5981409291196919`", ",", 
       "0.8160810573623691`", ",", "0.27860086161234004`", ",", 
       "0.48110252087700817`", ",", "0.8182078812932885`", ",", 
       "0.5415293193326605`", ",", "0.5162780997201156`", ",", 
       "0.5120719414732205`", ",", "0.3020329233955126`", ",", 
       "0.3123777936951802`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.4160856716972873`", ",", 
       RowBox[{"-", "231.571740767014`"}], ",", 
       RowBox[{"-", "238.7781889535666`"}], ",", "1.9520272079419339`"}], 
      "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.505673776362035*^9, 3.50567517241039*^9, 3.505694464797428*^9, 
   3.505694520370846*^9, {3.505760569191741*^9, 3.5057605727116957`*^9}, 
   3.5057607666477423`*^9, {3.5057662355899057`*^9, 3.50576625748481*^9}, 
   3.505766305360738*^9, 3.506005663299089*^9, 3.506005754410383*^9, 
   3.5060061428264837`*^9, 3.5060061982309504`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Mstep Test Vectors", "Subsubsection",
 CellChangeTimes->{{3.5058461617107058`*^9, 3.50584616512455*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "makevararray", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"makevararray", "[", 
    RowBox[{"s_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"ToExpression", "[", 
      RowBox[{"s", " ", "<>", " ", 
       RowBox[{"ToString", "[", "i", "]"}]}], "]"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"i", ",", " ", "1", ",", " ", "n"}], " ", "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Clear", "[", "makevarmatrix", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"makevarmatrix", "[", 
    RowBox[{"s_", ",", " ", "m_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"makevararray", "[", 
      RowBox[{
       RowBox[{"s", "<>", " ", 
        RowBox[{"ToString", "[", "i", "]"}]}], ",", " ", "n"}], "]"}], ",", 
     " ", 
     RowBox[{"{", " ", 
      RowBox[{"i", ",", " ", "1", ",", " ", "m"}], " ", "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "mstep", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"mstep", "[", 
    RowBox[{
    "\[Kappa]_", ",", " ", "log\[Alpha]_", ",", " ", "\[Tau]_", ",", " ", 
     "\[Gamma]_", ",", " ", "\[Rho]_", ",", " ", "log\[Lambda]_", ",", " ", 
     "pz_", ",", " ", "priorz_", ",", " ", "d_", ",", " ", "plog\[Alpha]_", 
     ",", " ", "p\[Tau]_", ",", " ", "p\[Gamma]_", ",", " ", "p\[Kappa]_", 
     ",", " ", "p\[Rho]_", ",", " ", "plog\[Lambda]_"}], "]"}], " ", ":=", 
   " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\[Kappa]new", ",", " ", "log\[Alpha]new", ",", "\[Tau]new", ",", 
       "\[Gamma]new", ",", "\[Rho]new", ",", " ", "log\[Lambda]new", ",", " ",
        "q", ",", "vars"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"log\[Alpha]new", " ", "=", " ", 
       RowBox[{"makevararray", "[", 
        RowBox[{"\"\<log\[Alpha]\>\"", ",", " ", 
         RowBox[{"Length", "[", "log\[Alpha]", "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Tau]new", " ", "=", 
       RowBox[{"makevarmatrix", "[", 
        RowBox[{"\"\<\[Tau]\>\"", ",", " ", 
         RowBox[{"Length", "[", "\[Tau]", "]"}], ",", " ", 
         RowBox[{"Length", "[", 
          RowBox[{"\[Tau]", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"\[Gamma]new", " ", "=", " ", 
       RowBox[{"makevararray", "[", 
        RowBox[{"\"\<\[Gamma]\>\"", ",", " ", 
         RowBox[{"Length", "[", "\[Gamma]", "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"log\[Lambda]new", " ", "=", " ", 
       RowBox[{"makevararray", "[", 
        RowBox[{"\"\<log\[Lambda]\>\"", ",", " ", 
         RowBox[{"Length", "[", "log\[Lambda]", "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", " ", 
        RowBox[{"q", ",", " ", "vars"}], " ", "}"}], " ", "=", 
       RowBox[{"FindMaximum", "[", 
        RowBox[{
         RowBox[{"qfunc", "[", 
          RowBox[{
          "\[Kappa]new", ",", "log\[Alpha]new", ",", " ", "\[Tau]new", ",", 
           " ", "\[Gamma]new", ",", " ", "\[Rho]new", ",", " ", 
           "log\[Lambda]new", ",", " ", "pz", ",", " ", "priorz", ",", " ", 
           "d", ",", " ", "plog\[Alpha]", ",", " ", "p\[Tau]", ",", " ", 
           "p\[Gamma]", ",", " ", "p\[Kappa]", ",", " ", "p\[Rho]", ",", " ", 
           "plog\[Lambda]"}], "]"}], ",", " ", 
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"\[Kappa]new", ",", " ", "\[Kappa]"}], "}"}], "}"}], ",",
            " ", 
           RowBox[{"Transpose", "[", 
            RowBox[{"{", 
             RowBox[{"log\[Alpha]new", ",", " ", "log\[Alpha]"}], "}"}], 
            "]"}], ",", " ", 
           RowBox[{"Transpose", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Flatten", "[", "\[Tau]new", "]"}], ",", " ", 
              RowBox[{"Flatten", "[", "\[Tau]", "]"}]}], "}"}], "]"}], ",", 
           " ", 
           RowBox[{"Transpose", "[", 
            RowBox[{"{", 
             RowBox[{"\[Gamma]new", ",", " ", "\[Gamma]"}], "}"}], "]"}], ",",
            " ", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"\[Rho]new", ",", " ", "\[Rho]"}], "}"}], "}"}], ",", 
           " ", 
           RowBox[{"Transpose", "[", 
            RowBox[{"{", 
             RowBox[{"log\[Lambda]new", ",", " ", "log\[Lambda]"}], "}"}], 
            "]"}]}], "]"}], ",", " ", 
         RowBox[{"AccuracyGoal", " ", "\[Rule]", " ", "10"}], ",", " ", 
         RowBox[{"PrecisionGoal", " ", "\[Rule]", " ", "10"}], ",", 
         RowBox[{"WorkingPrecision", "\[Rule]", "20"}], ",", 
         RowBox[{"MaxIterations", " ", "\[Rule]", " ", "1000"}], ",", "  ", 
         RowBox[{"Method", "\[Rule]", "\"\<ConjugateGradient\>\""}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"{", " ", 
       RowBox[{"q", ",", " ", 
        RowBox[{
         RowBox[{"{", " ", 
          RowBox[{"\[Kappa]new", ",", " ", "log\[Alpha]new", ",", " ", 
           RowBox[{"Flatten", "[", "\[Tau]new", "]"}], ",", " ", 
           "\[Gamma]new", ",", " ", "\[Rho]new", ",", " ", 
           "log\[Lambda]new"}], " ", "}"}], " ", "/.", " ", "vars"}]}], " ", 
       "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.505846173960207*^9, 3.50584635954594*^9}, {
   3.505846551651041*^9, 3.5058467515017567`*^9}, {3.5058469954284897`*^9, 
   3.505846997386532*^9}, {3.5058476160881863`*^9, 3.505847624686517*^9}, {
   3.5058477258770313`*^9, 3.5058477343339148`*^9}, 3.5060166177688637`*^9, {
   3.506016841426758*^9, 3.506016910108585*^9}, {3.5060170035701838`*^9, 
   3.506017034449932*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nworkers", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nworkers", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nimages", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nimages", " ", "=", " ", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nlabels", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlabels", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "nratings", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nratings", " ", "=", " ", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ListQ", "[", "#", "]"}], " ", "&&", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"!", " ", 
             RowBox[{"ListQ", "[", 
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}], " ", "||", " ", 
            RowBox[{"!", " ", 
             RowBox[{"IntegerQ", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "[", 
               RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ")"}]}], ",", " ", 
         RowBox[{"Flatten", "[", "#", "]"}], ",", " ", "#"}], "]"}], "&"}], 
      " ", "/@", " ", "#"}], ",", " ", 
     RowBox[{"mstep", "[", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "3", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "4", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "5", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "6", "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", "7", "]"}], "]"}], ",", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "8", "]"}], "]"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "+", 
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
           RowBox[{"1", "+", 
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], ",", 
           RowBox[{"#", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "&"}], " ", "/@", " ", 
        RowBox[{"#", "[", 
         RowBox[{"[", "9", "]"}], "]"}]}], ",", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "10", "]"}], "]"}]}], "]"}]}], "]"}], ",", " ", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "11", "]"}], "]"}]}], "]"}]}], "]"}], ",", 
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "12", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "13", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "14", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "15", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "16", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "17", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "18", "]"}], "]"}], ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "19", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "20", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "21", "]"}], "]"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "22", "]"}], "]"}], ",", " ", 
         RowBox[{"#", "[", 
          RowBox[{"[", "23", "]"}], "]"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Function", "[", 
        RowBox[{"x", ",", " ", 
         RowBox[{"NormalDistribution", "[", 
          RowBox[{"x", ",", " ", 
           RowBox[{"#", "[", 
            RowBox[{"[", "24", "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], 
    "}"}], "&"}], "/@", "\[IndentingNewLine]", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nimages"}], " ", "}"}]}], 
       "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "}"}]}], "]"}], ",", 
        " ", 
        RowBox[{"{", " ", 
         RowBox[{"k", ",", " ", "1", ",", " ", "nworkers"}], "}"}]}], "]"}], 
      ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", 
          RowBox[{"nlabels", " ", "-", " ", "1"}]}], "}"}]}], "]"}], ",", " ",
       "\[IndentingNewLine]", 
      RowBox[{"Random", "[", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nworkers"}], " ", "}"}]}], 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Random", "[", "]"}], ",", " ", 
          RowBox[{"{", " ", 
           RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
         "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"j", ",", " ", "1", ",", " ", "nimages"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Random", "[", "]"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nlabels"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nworkers", " ", "-", " ", "1"}]}], "]"}], ",", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nimages", " ", "-", " ", "1"}]}], "]"}], ",", 
          RowBox[{"Random", "[", 
           RowBox[{"Integer", ",", " ", 
            RowBox[{"nlabels", " ", "-", " ", "1"}]}], "]"}]}], "}"}], ",", 
        " ", 
        RowBox[{"{", " ", 
         RowBox[{"i", ",", " ", "1", ",", " ", "nratings"}], " ", "}"}]}], 
       "]"}], ",", " ", 
      RowBox[{"0.25", " ", "+", " ", 
       RowBox[{"Random", "[", "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"0.25", " ", "+", " ", 
       RowBox[{"Random", "[", "]"}]}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", 
      RowBox[{"0.25", " ", "+", " ", 
       RowBox[{"Random", "[", "]"}]}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"0.25", " ", "+", " ", 
       RowBox[{"Random", "[", "]"}]}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"0.25", " ", "+", " ", 
       RowBox[{"Random", "[", "]"}]}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"0.25", " ", "+", " ", 
       RowBox[{"Random", "[", "]"}]}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"0.25", " ", "+", " ", 
       RowBox[{"Random", "[", "]"}]}], ",", " ", 
      RowBox[{"Random", "[", "]"}], ",", " ", 
      RowBox[{"0.25", " ", "+", " ", 
       RowBox[{"Random", "[", "]"}]}], ",", " ", 
      RowBox[{"0.25", " ", "+", " ", 
       RowBox[{"Random", "[", "]"}]}]}], "\[IndentingNewLine]", "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", " ", 
     RowBox[{"foo", ",", " ", "1", ",", " ", "3"}], " ", "}"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.504016424813343*^9, 3.504016580297758*^9}, {
   3.504018269599441*^9, 3.504018279219314*^9}, {3.504018359153508*^9, 
   3.504018387475568*^9}, {3.5040184327040863`*^9, 3.504018509500141*^9}, {
   3.504018861653284*^9, 3.504018920277594*^9}, {3.504019049785894*^9, 
   3.504019065803638*^9}, 3.504019184180941*^9, {3.504059801963703*^9, 
   3.504059813764331*^9}, 3.5040599982883453`*^9, {3.504060100407703*^9, 
   3.504060104803857*^9}, 3.504060440796597*^9, {3.504060503267675*^9, 
   3.504060525182757*^9}, {3.50456047953319*^9, 3.504560681387557*^9}, {
   3.504577463729417*^9, 3.504577464011519*^9}, {3.504577589051256*^9, 
   3.504577590132493*^9}, {3.504577632742776*^9, 3.5045776330605373`*^9}, {
   3.504740502012248*^9, 3.504740503922497*^9}, {3.504740727150861*^9, 
   3.504740736352736*^9}, 3.504876469621917*^9, {3.5055962008030443`*^9, 
   3.505596275077857*^9}, {3.505596319880871*^9, 3.505596373226162*^9}, {
   3.505596415459552*^9, 3.505596505766666*^9}, {3.50559654044011*^9, 
   3.505596540734797*^9}, 3.505672802683957*^9, 3.5056942774993753`*^9, {
   3.505694366620678*^9, 3.505694366726482*^9}, {3.5057600362594757`*^9, 
   3.5057600462592773`*^9}, 3.505760218072028*^9, {3.5057618784831467`*^9, 
   3.5057618855096197`*^9}, {3.505765314690784*^9, 3.505765460997046*^9}, {
   3.505765519815023*^9, 3.505765560295491*^9}, 3.505765708877458*^9, {
   3.5058467953792152`*^9, 3.505846864053294*^9}, {3.505846926569819*^9, 
   3.505846931071971*^9}, {3.50584775387672*^9, 3.505847753976995*^9}, {
   3.506017071384898*^9, 3.5060171698229637`*^9}, {3.506017215842955*^9, 
   3.506017241552835*^9}, {3.506040360421332*^9, 3.506040360515459*^9}, {
   3.50604042181488*^9, 3.506040434793334*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindMaximum", "::", "\<\"precw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The precision of the \
argument function (\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(-\\(\\((\\(\\(3.\
5530992132390358` \[InvisibleSpace]\\)\\) + \
\\(\\(Log[\\(\\(0.40062884605162613`\\\\ \
\[ExponentialE]\\^\\(\\(\\(-0.5042365294176995`\\)\\)\\\\ \\(Plus[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\^2\\)\\)\\)]\\)\\) + \\(\\(\
\[LeftSkeleton] 47 \[RightSkeleton]\\)\\) + \\(\\(0.251991823257299`\\\\ \
\\(\\(Log[\\(\\(\[ExponentialE]\\^\\(\\(\\(Times[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Times[\\(\\(\[LeftSkeleton] 3 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\/\\(1 + \\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)]\\)\\)\\)\\) + \\(\\(\[LeftSkeleton] \
20 \[RightSkeleton]\\)\\))\\)\\)\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\") is less than \
WorkingPrecision (\\\\\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\
\\(20.`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\").\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/precw\\\", ButtonNote -> \
\\\"FindMaximum::precw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.505846800168458*^9, {3.505846845158577*^9, 3.50584688707511*^9}, {
   3.505846931893093*^9, 3.505846955940876*^9}, 3.505847002129406*^9, {
   3.505847337582662*^9, 3.505847343911091*^9}, {3.505847621059428*^9, 
   3.5058476488377132`*^9}, {3.505847737133943*^9, 3.505847763066031*^9}, {
   3.506017092177938*^9, 3.506017126080567*^9}, {3.506017170248157*^9, 
   3.506017242349353*^9}, {3.506040360847621*^9, 3.506040435538333*^9}, {
   3.52254476399994*^9, 3.522544784178774*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"unfl\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Underflow occurred in \
computation.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/unfl\\\", ButtonNote -> \
\\\"General::unfl\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.505846800168458*^9, {3.505846845158577*^9, 3.50584688707511*^9}, {
   3.505846931893093*^9, 3.505846955940876*^9}, 3.505847002129406*^9, {
   3.505847337582662*^9, 3.505847343911091*^9}, {3.505847621059428*^9, 
   3.5058476488377132`*^9}, {3.505847737133943*^9, 3.505847763066031*^9}, {
   3.506017092177938*^9, 3.506017126080567*^9}, {3.506017170248157*^9, 
   3.506017242349353*^9}, {3.506040360847621*^9, 3.506040435538333*^9}, {
   3.52254476399994*^9, 3.5225447850520887`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindMaximum", "::", "\<\"precw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The precision of the \
argument function (\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(-\\(\\((\\(\\(3.\
423824034003936` \[InvisibleSpace]\\)\\) + \
\\(\\(Log[\\(\\(0.45182491697669563`\\\\ \
\[ExponentialE]\\^\\(\\(\\(-0.6413428060576324`\\)\\)\\\\ \\(Plus[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\^2\\)\\)\\)]\\)\\) + \\(\\(\
\[LeftSkeleton] 47 \[RightSkeleton]\\)\\) + \\(\\(0.5316814195105616`\\\\ \\(\
\\(Log[\\(\\(\[ExponentialE]\\^\\(\\(\\(Times[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Times[\\(\\(\[LeftSkeleton] 3 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\/\\(1 + \\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\) + \\(\\(Power[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)\\)\\)\\)\\)]\\)\\)\\)\\) + \\(\\(\[LeftSkeleton] \
15 \[RightSkeleton]\\)\\))\\)\\)\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\") is less than \
WorkingPrecision (\\\\\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\
\\(20.`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\").\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/precw\\\", ButtonNote -> \
\\\"FindMaximum::precw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.505846800168458*^9, {3.505846845158577*^9, 3.50584688707511*^9}, {
   3.505846931893093*^9, 3.505846955940876*^9}, 3.505847002129406*^9, {
   3.505847337582662*^9, 3.505847343911091*^9}, {3.505847621059428*^9, 
   3.5058476488377132`*^9}, {3.505847737133943*^9, 3.505847763066031*^9}, {
   3.506017092177938*^9, 3.506017126080567*^9}, {3.506017170248157*^9, 
   3.506017242349353*^9}, {3.506040360847621*^9, 3.506040435538333*^9}, {
   3.52254476399994*^9, 3.5225447871702423`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FindMaximum", "::", "\<\"precw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The precision of the \
argument function (\\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(-\\(\\((\\(\\(3.\
613985890780889` \[InvisibleSpace]\\)\\) + \
\\(\\(Log[\\(\\(0.8396432211989471`\\\\ \
\[ExponentialE]\\^\\(\\(\\(-2.2148251421204037`\\)\\)\\\\ \\(Plus[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)\\^2\\)\\)\\)]\\)\\) + \\(\\(\
\[LeftSkeleton] 48 \[RightSkeleton]\\)\\) + \\(\\(\[LeftSkeleton] 20 \
\[RightSkeleton]\\)\\))\\)\\)\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\") is less than \
WorkingPrecision (\\\\\\\"\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\
\\(20.`\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\").\\\\\\\"\\\", \
\\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/precw\\\", ButtonNote -> \
\\\"FindMaximum::precw\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.505846800168458*^9, {3.505846845158577*^9, 3.50584688707511*^9}, {
   3.505846931893093*^9, 3.505846955940876*^9}, 3.505847002129406*^9, {
   3.505847337582662*^9, 3.505847343911091*^9}, {3.505847621059428*^9, 
   3.5058476488377132`*^9}, {3.505847737133943*^9, 3.505847763066031*^9}, {
   3.506017092177938*^9, 3.506017126080567*^9}, {3.506017170248157*^9, 
   3.506017242349353*^9}, {3.506040360847621*^9, 3.506040435538333*^9}, {
   3.52254476399994*^9, 3.5225447880923758`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Further output of \\\\\\\"\\\
\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(FindMaximum :: \
\\\"precw\\\"\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" will \
be suppressed during this calculation.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.505846800168458*^9, {3.505846845158577*^9, 3.50584688707511*^9}, {
   3.505846931893093*^9, 3.505846955940876*^9}, 3.505847002129406*^9, {
   3.505847337582662*^9, 3.505847343911091*^9}, {3.505847621059428*^9, 
   3.5058476488377132`*^9}, {3.505847737133943*^9, 3.505847763066031*^9}, {
   3.506017092177938*^9, 3.506017126080567*^9}, {3.506017170248157*^9, 
   3.506017242349353*^9}, {3.506040360847621*^9, 3.506040435538333*^9}, {
   3.52254476399994*^9, 3.522544788096095*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.3532345958655028`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5806815539898769`", ",", "0.23904134758878898`", ",", 
         "0.7033173686016814`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8745428736185749`", ",", "0.39361025966689916`", ",", 
         "0.2623899436043803`", ",", "0.6920183110831969`", ",", 
         "0.05783944177370434`", ",", "0.8230948901455584`", ",", 
         "0.6526126724851518`", ",", "0.3508758417650838`", ",", 
         "0.3784989232652525`", ",", "0.7108200333625294`", ",", 
         "0.001350511889278196`", ",", "0.5646575388992555`", ",", 
         "0.8229949913669624`", ",", "0.047775812375744395`", ",", 
         "0.915055655024365`", ",", "0.049218418658410985`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.17405551765066696`", ",", "0.8581606722878045`", ",", 
         "0.4073862988248982`", ",", "0.2347902905812572`"}], "}"}], ",", 
       "0.8208209217851642`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.2774791182979276`", ",", "0.16834495123610924`", ",", 
         "0.5314729219795759`", ",", "0.9462780481665893`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.8838688586310284`", ",", "0.905955007631729`", ",", 
         "0.839454610896379`", ",", "0.888438606392885`", ",", 
         "0.06077396848547004`", ",", "0.2533423351465772`", ",", 
         "0.48857876913129517`", ",", "0.5099396831276325`", ",", 
         "0.34995393512294065`", ",", "0.251991823257299`", ",", 
         "0.9239212302320395`", ",", "0.68694469176067`", ",", 
         "0.3021781227471963`", ",", "0.33693616823293393`", ",", 
         "0.8747028115736286`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.512889174110003`", ",", "0.44401745045939184`", ",", 
         "0.9295498694080357`", ",", "0.6399125209923714`", ",", 
         "0.6920682523248389`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.4165383321614643`", ",", "1.0112049181719265`", ",", 
       "0.10843959901279558`", ",", "0.9957902041582496`", ",", 
       "0.28266947353043587`", ",", "1.1052499105401976`", ",", 
       "0.26898498811641663`", ",", "1.1073515977653647`", ",", 
       "0.22189550504496583`", ",", "0.8519075753936204`", ",", 
       "0.7804062189851215`", ",", "0.5974119146377321`", ",", 
       "0.8719415699220252`", ",", "0.5999157521363213`", ",", 
       "1.1064849887530819`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "66.54796831862976166156613097956846280243`20."}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
         "-", "0.3882832960789821125281281755353491394017342991355784661032`\
20."}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
           "-", "0.3370441796450251881300042509095033430068583881495214834143`\
20."}], ",", 
           RowBox[{
           "-", "0.5307690190703662386005498336200075052299124345630152030889`\
20."}], ",", 
           RowBox[{
           "-", "0.8651844977477955092751395601656792777854984053659483080705`\
20."}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "0.1056976863691223543348612634133384777752596738966473690785`20.", 
           ",", 
           RowBox[{
           "-", "0.5902307071602807020369440803393867425221608782141621204498`\
20."}], ",", 
           "1.6580108914510073784232077273628158641305747649134549954085`20.",
            ",", 
           "0.2903444657271410226754541311897941715819156791514264201654`20.",
            ",", "0.\
5910141981681350007295877994153217909954802123917666877189`20.", ",", 
           "0.4097508733111116476149682489201533581076757953798054963154`20.",
            ",", "1.\
3482744419030647857733747561680236616668806256055130250511`20.", ",", 
           "0.5480028884403115463338786420392133916222399123195245654209`20.",
            ",", "0.\
5861433068271636600054005043341578899613577852522050880085`20.", ",", 
           "0.1215685581975432519123629174747588158769854699020288820737`20.",
            ",", "0.\
9683518240322645161248428275061696440651793233523156797549`20.", ",", 
           "0.6765967138433478486927093915907403717145615909847717977328`20.",
            ",", "0.\
6708632529920185068421115078985053652357221300533288890124`20.", ",", 
           "0.305924501344328130160028525214988995535580826172756177533`20.", 
           ",", "1.2765762711236082118407208377453703671329698212067865350761`\
20.", ",", 
           "0.5098758025557962355744942208955784047463857544902622257512`20."}\
], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "0.4105464985341229455314846237239174603751521936779115417751`20.", 
           ",", "0.0999832149910497965104745878466247059848758597643845267208`\
20.", ",", "1.1327357047284318025912110267518364830758400506708641182489`20.",
            ",", "0.\
4321469120074077438285188506948802949038163423601030138775`20."}], "}"}], ",", 
         RowBox[{
         "-", "0.3065647587229219238194766654443460498504457660965259057992`\
20."}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
           "-", "0.6639543610605978357272390244834870830987657477589053688905`\
20."}], ",", 
           RowBox[{
           "-", "1.6586007403601577249486213018745406635432596462942330841806`\
20."}], ",", 
           RowBox[{
           "-", "1.4476664989302337672375518898557024924517105632807495002835`\
20."}], ",", 
           RowBox[{
           "-", "1.4650963723544891625554061138130964946306692784352218362473`\
20."}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.6604672228770622`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5697634471748289`", ",", "0.012979583903387378`", ",", 
         "0.9817821771794533`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.14757804876705913`", ",", "0.12574599671543704`", ",", 
         "0.08342971449535162`", ",", "0.34186965618708187`", ",", 
         "0.45550979644222017`", ",", "0.9592076645539728`", ",", 
         "0.3222247963234251`", ",", "0.2334300571742863`", ",", 
         "0.7097195922839705`", ",", "0.6765381910235369`", ",", 
         "0.4669748857832275`", ",", "0.9644450690578696`", ",", 
         "0.8523679945186059`", ",", "0.45464268597857105`", ",", 
         "0.8650673103896072`", ",", "0.18403885007274817`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.5049560798808737`", ",", "0.582701116056546`", ",", 
         "0.5151515582532858`", ",", "0.3275538613196663`"}], "}"}], ",", 
       "0.8444888570038115`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.012937668881717046`", ",", "0.5021719743498985`", ",", 
         "0.345771684140213`", ",", "0.6969108082367523`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.88719167216628`", ",", "0.4187422598545468`", ",", 
         "0.003902027953131119`", ",", "0.2414010117945322`", ",", 
         "0.9279840076123073`", ",", "0.09651746353112174`", ",", 
         "0.7704719707788448`", ",", "0.5316814195105616`", ",", 
         "0.25144581658877035`", ",", "0.6295425777478942`", ",", 
         "0.8060269017209751`", ",", "0.6793134249919557`", ",", 
         "0.7968031306101993`", ",", "0.7644752673582871`", ",", 
         "0.621988051648227`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.17435734511108206`", ",", "0.21410201455365335`", ",", 
         "0.24932370910500123`", ",", "0.29443419032856066`", ",", 
         "0.32986848810727054`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "2"}], "}"}]}], "}"}], ",", 
       "0.4511643456719363`", ",", "0.9971517347551028`", ",", 
       "0.9486625061883477`", ",", "0.8829576798705182`", ",", 
       "0.3139726735056563`", ",", "0.5784094749005559`", ",", 
       "0.9447604782352166`", ",", "0.641556668075986`", ",", 
       "0.385988665893349`", ",", "0.48189201136943416`", ",", 
       "0.17428850745637173`", ",", "1.1098752485654244`", ",", 
       "0.1345428493045787`", ",", "0.8523494336215399`", ",", 
       "0.6182616057353966`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "53.87680070082491336376884489059789647087`20."}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
         "-", "1.3153203387660448967634539866529835322274566598048319895794`\
20."}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
           "-", "1.4594678441123200864281031041879731706021971417562657168177`\
20."}], ",", 
           RowBox[{
           "-", "1.4447704108783462642270516292929341227800764890805644011677`\
20."}], ",", 
           RowBox[{
           "-", "1.287869141057652663780004120991343245740263311622070791652`\
20."}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "0.8200620241106786964272196295865594066722420753597710050286`20.", 
           ",", "0.1507387076994434798568576399546442153520695433147101236521`\
20.", ",", "1.3135797448649448853673091788361397956641133337623917297325`20.",
            ",", "0.\
5792524562467360805159110545979124275663509359831021917665`20.", ",", 
           "0.9928856128172274835359586143545053880925550424075047541347`20.",
            ",", "0.\
2900248013051569304619689681778297011255295875265864431799`20.", ",", 
           "1.3818857137173358389222718374269973014878474920852157791055`20.",
            ",", "0.\
6140748086357375379234584091671603002215244477497687268009`20.", ",", 
           "0.6338977508602022216165653345926493026393013596893664746013`20.",
            ",", 
           RowBox[{
           "-", "0.0260763140776397403366447000094806303740551470545009072855`\
20."}], ",", 
           "1.4827525496557898440979028466187626724106835601469240069068`20.",
            ",", "0.8884826754544849888746313843111395662635850378966115593`\
20.", ",", "0.8553044245108907076309282056088591401366335423255353075977`20.",
            ",", "0.\
2256891709628783309299579035267668310854907376332109149817`20.", ",", 
           "1.1929137226052061052727702585526319580186993552324277080189`20.",
            ",", "0.\
5128595097671670533401430640333764722549591444887427977697`20."}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "0.855304424453747303099708346444617327884109837536124280397`20.", 
           ",", "0.2256891711464964670804390739294315894278234581554857012201`\
20.", ",", "1.1929137226472585864244311542770485268780228674867947751105`20.",
            ",", "0.\
5128595099008083797410329926806324435602637655661848955581`20."}], "}"}], ",", 
         RowBox[{
         "-", "0.7439925469697726269530275600421776595104513082385448803375`\
20."}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
           "-", "0.7817642910046898690188756523298860435552222149706628078871`\
20."}], ",", 
           RowBox[{
           "-", "1.0146887369852856503438091583098097883623451347856953209369`\
20."}], ",", 
           RowBox[{
           "-", "0.8977656139387109083276320654821051292000684589598966018073`\
20."}], ",", 
           RowBox[{
           "-", "0.743992547017270345884427159252510703773175046259884493023`\
20."}]}], "}"}]}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0.18056182357346862`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.3377397186943794`", ",", "0.837874166263253`", ",", 
         "0.7462735540871696`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.006204478462386568`", ",", "0.12363770414072607`", ",", 
         "0.5885504571582517`", ",", "0.45183936375860895`", ",", 
         "0.676335990355116`", ",", "0.9224733584687898`", ",", 
         "0.841398722403149`", ",", "0.5031768575702612`", ",", 
         "0.043378310484597865`", ",", "0.6085006849631335`", ",", 
         "0.512989247502593`", ",", "0.5584163793350446`", ",", 
         "0.6518216424086118`", ",", "0.22251201906978443`", ",", 
         "0.2810972361331588`", ",", "0.3841278718786729`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7919463938431875`", ",", "0.08796916976520575`", ",", 
         "0.6787478025116188`", ",", "0.015866266143276353`"}], "}"}], ",", 
       "0.6113845702697189`", ",", 
       RowBox[{"{", 
        RowBox[{
        "0.7502294510708263`", ",", "0.8408736362483659`", ",", 
         "0.26959271205610674`", ",", "0.6051800918073323`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.6265917469301002`", ",", "0.2523231790901142`", ",", 
         "0.8177533482974978`", ",", "0.9288441014522163`", ",", 
         "0.7041183884613105`", ",", "0.4109244566869653`", ",", 
         "0.3145764907272366`", ",", "0.8854657909676185`", ",", 
         "0.09561770349817701`", ",", "0.8979352091843723`", ",", 
         "0.756160111392192`", ",", "0.2336441485590066`", ",", 
         "0.8731056844283925`", ",", "0.6168379730512136`", ",", 
         "0.372032239513519`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
        "0.441697754715819`", ",", "0.7851365146631868`", ",", 
         "0.9380901705395948`", ",", "0.35616597337024264`", ",", 
         "0.8303131844461001`"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "1", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "1"}], "}"}]}], "}"}], ",", 
       "0.2849070635923605`", ",", "0.3472165342912289`", ",", 
       "0.08657326131413588`", ",", "0.4751330926387678`", ",", 
       "0.4083153166622603`", ",", "1.0948933552011146`", ",", 
       "0.26881991301663805`", ",", "0.5462889911865514`", ",", 
       "0.7041969282009498`", ",", "0.6839688985141494`", ",", 
       "0.9542434222894015`", ",", "0.6608232002189329`", ",", 
       "0.6085792247027728`", ",", "0.786033689329777`", ",", 
       "0.44808331089720954`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "39.32162673427508806715935053957142217472`20."}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
         "-", "0.3554874942527957042475602928739550040863591711652570811079`\
20."}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
           "-", "0.4578841850482599894718931791793192407858623781422091879219`\
20."}], ",", 
           RowBox[{
           "-", "0.4493627253573941228108646332594349265088493711550727822645`\
20."}], ",", 
           RowBox[{
           "-", "0.4026701522356648001812617229025961793689686201071153039527`\
20."}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
           "-", "0.0316653332506743418928517565106625919456727725292198238751`\
20."}], ",", 
           "1.3730668229903959839065303011524761614565352781723534340828`20.",
            ",", "0.\
4531896090592907168914356975567263454326480644565204406458`20.", ",", 
           "0.7549315647012870107459127225991787138214203188803606177224`20.",
            ",", 
           RowBox[{
           "-", "0.021874797574626214637303901967814634493961926221142341639`\
20."}], ",", 
           "1.378664165618773547317745401994725419614966638100646003199`20.", 
           ",", "0.4719543139654712944823479466416471579004736976881290828749`\
20.", ",", "0.7908748779908925061323216752154506180323105615373496295541`20.",
            ",", 
           RowBox[{
           "-", "0.036694792020035855890030255700183994350074274281633934003`\
20."}], ",", 
           "1.3512122727177587404820503719537969893684592470190564858652`20.",
            ",", "0.\
4787681498512058490176095564874114809847204110394818531643`20.", ",", 
           "0.8203543001452940201049504385779048725016432446927624771611`20.",
            ",", 
           RowBox[{
           "-", "0.0285170861586212190364906485561723804057669717491803936381`\
20."}], ",", 
           "1.3689915956033972523923820695679178224318427401532763424471`20.",
            ",", "0.\
4523247822595649248604426819610599269268210064949446905038`20.", ",", 
           "0.7571929568106220197683151461077871789739649548736040223569`20."}\
], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
           "-", "0.0159943168487921262214210628543390395169103373112592356332`\
20."}], ",", 
           "1.3444476199032751839814075077296350056405076256260393275419`20.",
            ",", "0.\
4461499320801205989285277241169270231629182544724768352559`20.", ",", 
           "0.7761995124161285920142878129883220036981321375368053050042`20."}\
], "}"}], ",", 
         RowBox[{
         "-", "1.2444993564734760781470483023299376295089293329739345685878`\
20."}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
           "-", "1.371635389284334720012837082198735058571499730387826852135`\
20."}], ",", 
           RowBox[{
           "-", "1.434169292002159311792467576713863748351056904791352997788`\
20."}], ",", 
           RowBox[{
           "-", "1.457448296662949923631860091274985334625126950116541349965`\
20."}], ",", 
           RowBox[{
           "-", "1.3169282275437748426418499315889041447139296731962074762288`\
20."}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5058468001822233`*^9, {3.505846845308765*^9, 3.5058468909738417`*^9}, {
   3.505846931926366*^9, 3.5058469559641657`*^9}, 3.50584700214517*^9, {
   3.5058473375933723`*^9, 3.505847343935533*^9}, {3.5058476210830717`*^9, 
   3.505847648853656*^9}, {3.505847738127527*^9, 3.5058477660808477`*^9}, {
   3.506017092853785*^9, 3.506017126610334*^9}, {3.506017170851368*^9, 
   3.506017243888155*^9}, {3.506040362943614*^9, 3.506040439969282*^9}, {
   3.522544767751255*^9, 3.5225447897844563`*^9}}]
}, Open  ]]
}, Closed]]
},
WindowSize->{640, 750},
WindowMargins->{{172, Automatic}, {110, Automatic}},
ShowSelection->True,
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 122, 1, 24, "Subsubsection"],
Cell[692, 25, 7129, 192, 373, "Input"],
Cell[CellGroupData[{
Cell[7846, 221, 1250, 35, 58, "Input"],
Cell[9099, 258, 4035, 105, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13171, 368, 1105, 32, 58, "Input"],
Cell[14279, 402, 3864, 103, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18180, 510, 1178, 33, 58, "Input"],
Cell[19361, 545, 6040, 154, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[25450, 705, 108, 1, 18, "Subsubsection"],
Cell[25561, 708, 6839, 148, 418, "Input"],
Cell[CellGroupData[{
Cell[32425, 860, 6964, 168, 328, "Input"],
Cell[39392, 1030, 26244, 596, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[65685, 1632, 160, 2, 18, "Subsubsection"],
Cell[65848, 1636, 8738, 194, 583, "Input"],
Cell[CellGroupData[{
Cell[74611, 1834, 10118, 244, 538, "Input"],
Cell[84732, 2080, 32566, 696, 1858, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[117347, 2782, 165, 2, 18, "Subsubsection"],
Cell[117515, 2786, 1376, 26, 88, "Input"],
Cell[CellGroupData[{
Cell[118916, 2816, 10055, 243, 538, "Input"],
Cell[128974, 3061, 32600, 697, 1843, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[161623, 3764, 168, 2, 18, "Subsubsection"],
Cell[161794, 3768, 2949, 69, 178, "Input"],
Cell[CellGroupData[{
Cell[164768, 3841, 9984, 242, 538, "Input"],
Cell[174755, 4085, 34053, 736, 1873, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[208857, 4827, 163, 2, 18, "Subsubsection"],
Cell[209023, 4831, 3973, 96, 238, "Input"],
Cell[CellGroupData[{
Cell[213021, 4931, 10425, 248, 538, "Input"],
Cell[223449, 5181, 38855, 817, 2278, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[262353, 6004, 214, 3, 18, "Subsubsection"],
Cell[262570, 6009, 3059, 70, 178, "Input"],
Cell[CellGroupData[{
Cell[265654, 6083, 10170, 245, 538, "Input"],
Cell[275827, 6330, 34540, 742, 1978, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[310416, 7078, 216, 3, 18, "Subsubsection"],
Cell[310635, 7083, 1419, 27, 88, "Input"],
Cell[CellGroupData[{
Cell[312079, 7114, 10105, 244, 538, "Input"],
Cell[322187, 7360, 32727, 699, 1858, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[354963, 8065, 220, 3, 18, "Subsubsection"],
Cell[355186, 8070, 3018, 71, 178, "Input"],
Cell[CellGroupData[{
Cell[358229, 8145, 10058, 243, 538, "Input"],
Cell[368290, 8390, 34609, 745, 1978, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[402948, 9141, 110, 1, 18, "Subsubsection"],
Cell[403061, 9144, 5930, 137, 373, "Input"],
Cell[CellGroupData[{
Cell[409016, 9285, 10613, 255, 553, "Input"],
Cell[419632, 9542, 2102, 35, 140, "Message"],
Cell[421737, 9579, 918, 16, 23, "Message"],
Cell[422658, 9597, 2104, 35, 140, "Message"],
Cell[424765, 9634, 1582, 28, 89, "Message"],
Cell[426350, 9664, 1097, 18, 41, "Message"],
Cell[427450, 9684, 19623, 434, 1273, "Output"]
}, Open  ]]
}, Closed]]
}
]
*)

(* End of internal cache information *)
